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ABSTRACT 


The design for a supersonic flexible plate nozzle is presented. The nozzle was 
required for a supersonic blow-down cascade wind tunnel facility at the Naval 
Postgraduate School's Gas Dynamics Laboratory. Overall dimensions were based on 
calculations of the required test section height and width which would give acceptable (2 
minute) run times over an operating Mach number range from 1.4 to 2.0. A two- 
dimensional, constant-plate thickness, multiple-jack screw configuration was the concept 
used to effect the nozzle geometry changes. Mention is made of a multi-disciplinary 
design optimization routine which helped to rule out a single-jack, variable-plate thickness 
configuration. The aerodynamic and structural analysis used in the design process is 
presented in detail. Preliminary drawings of the nozzle mechanism are included. 
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I. INTRODUCTION 


A small transonic compressor cascade wind tunnel was designed and built at the 
Turbopropulsion Laboratory (TPL) at the Naval Postgraduate School, Monterey, Cahfomia 
(Demo, 1978). The tunnel was used successfully to examine the shock structure at the tip of a 
transonic conqjressor rotor then being tested at the Laboratory. In recent years, the test secticai 
was modified to provide a simulation of the flow through blading of a Navy development fiin. The 
goal was to obtain an acceptably two-dimensional and periodic simulation with only two blade 
passages so that the scale of the model was large enough to examine shock-boundary layer 
interaction, and its control using vortex generators. The develq)ment of the two passage 
simulation was rqjorted (Shreeve et al, 1993) and recent measurements of the effects of vortex 
gQierators oi the passage shock-boundary layer interactiai were documented (Gamerdinger, 
1995). In order to allow similar experimental studies to be ccmducted over a range of relative flow 
Madi numbers of interest in advanced ^ designs, a variable Mach number apparatus with a 
larger test section was required. The design of the nozzle for the new apparatus, which would use 
the supply and exhaust piping of an existing 4x4 inch supersonic wind tunnel was the goal of the 
present woric. The aim was to incorporate into the larger apparatus all the features proven 
successfully in the pilot experiment, but to provide diem over a range of Mach number that could 
be varied ctxitinuousiy fi’om 1.4 to 2. This range of Madi number was chosen based on the status 
of &n and compressor technology and would be of interest for many years. 

Thus die focus of die presait diesis was the design of a variable gecxnetry nozzle and 
actuating mechanism for the new apparatus. For the test secticxi area considered in the present 
design, Madi 2.0 was a limit sd by the TPL blow down facility air receiver volume and pressure 
level, and the desired test duraticn. Because the blow down focility was an intermittent wind tunnel 
and die test durations relatively diort, the nozzle mechanism was not required to change the test 
secticxi Mach number during the course of a test. The mechanism was required to alter the nozzle 
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shape during the intervening time betweai tests in which the air tanks were being r^ressurized. 
Based on the this length of time between tests, the nozzle mechanism was required to be able to 
provide a conq>lete change in caifiguraticai from the Mach 1.4 to the Mach 2.0 shape within fifte^ 
mimrtes. 

A flexible-plate nozzle with screw jacks to alter the shape was the chosen concept for the 
design. This mechanism was chosai over a moveable-block c(xic^ because of the requiremait to 
couple the nozzle with a cascade test secticxi with boundary layer scoops on all four walls. An 
arrangemait based ot quick removal and installati<m of fixed-shape nozzle blocks was not diosai 
due to the expaise involved in machining the many sets of nozzle blocks required to cover the 
desired Mach number range. The flexible plate nozzle design could potmtially provide fast 
changes in geometry and a nearly axitinuous variation of test Mach number, at reasonable 
expose. 

The presait document records the design process fbUowed and provides the details of the 
final design, which is shown in Figure 1 in a side view with the side plates removed. Chapter II 
discusses the axistraints inqjosed by the existing blow-down fecility, future test section design 
requirements and the initial sizing of the nozzle. Chapter III describes a flexible-plate nozzle 
design methodology develq)ed at NASA Ames Researdi Facility (Melton, 1994), which was 
followed initially in the presart project Hus design process involved a multi-disciplinary 
np rimigatifm of the flexible plate thickness variation. Chapter IV describes the design methodolc^ 
used in the final design in which aerodynamic and structural solutitms were derived separately. 
This design tq^roach incorporated oxistant-diickness flexible plates with multq)le screw jacks. 
Chapter V discusses features of the mechanism design, including the sealing problem, the 
jackscrew design, the jack mounting design and the support frame. Chapter VI presents 
conclusiois and recommaidations for further analysis and specifically a computational fluid 
dynamics analysis before commitment to manufecture is made. Finally, the appsidices documait 
the analytical and computaticmal methods used in the design process. 
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II. DESIGN REQUIREMENTS AND INITIAL SIZING 


An initial sizing calculation was carried out to determine if the design requirements could 
be achieved. TTie calculations showed that the existing air supply system was capable 
of supporting Mach 2.0 operation for the test section of interest. 


A. NOZZLE EXIT AREA 

The sizing of the nozzle exit area was determined by the capabilities of the Gas Dynamics 
Laboratory (GPL) blow-down facility (Figure 2), the required stagnation pressure for Mach 2 
operation and the desired test duration 
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Figure 2. Blow Down Wind Tunnel Facility 

The capacity of the storage tanks was 8000 cubic feet and tlie maximum pressure available 
through a combination of main and boost compressors was 300 pounds per square inch. The 
existing control valve was a Fisher Type 57-T. Data on the ability of this control valve to regulate 
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air flow at low pressure differentials was not available. To maintain a particular Mach number in 
the test section, the ploirun pressure had to be kept at a crmstant level. Therefore a series of tests 
was conducted to determine the lower limit in pressure differential across the control valve at 
\Miich COTitrol of the ploium pressure was lost. The data taken from these tests were used to derive 
a coefficient of volxunetric flow rate (Fisher, 1977), wtiich in turn was used to determine the useful 
range in tank pressures available for testing. 

Based on e?q}erioice with the pilot transmic cascade facility, and the time needed for 
probe surveys, a nominal test duration of two minutes was chosen. The control-valve tests 
indicated that the time from foe ccxitrol valve was first q>ened to vfoen stable flow conditions 
were established, was approximately one minute. During this period foe volumetric flow rate 
would be less than occurs during foe steady test period. Coisequmtly, foe nozzle exit area was 
sized for a three minute steady flow at Mach 1.9, and this resulted in foe selectitm of ei^teffli 
square indies. The derivation of foe volumetric flow rate and foe exit area calculation are givra in 
Appendix A. 

B. NOZZLE EXIT ASPECT RATIO 

Factors cmstraining foe test section geometry were examined to determine foe dimensions 
of foe nozzle exit. The aspect ratio of foe test section is defined herein as foe ratio of foe vertical 
hei^ to foe horizontal width of a plane oriented perpendicular to foe air flow (Figure 3). 

Design specifications for currait experimaital higji speed conqiressor blading were 
considered in sdecting foe aspect ratio. Though foe traid in conqiressor blade stagger angles 
points toward angles in excess of sevorty degrees, much lower angles (in foe area of forty degrees) 
were framd to be foe limiting considerations in setting foe test section width, given a number of 
desired blade passages. Three passages was foe configuration chosai to provide improved flow 
periodicity compared to that attained in foe pilot transmiic focility. Using five passages, foe 
generally acc^ted ' min im um ' number for supersonic cascades, was ruled out due to foe difficulty 
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of resolving viscous effects wifi very small-scale blades. It was also desirable to design the larger 
supersonic test section to have improved two dimensicmality compared to the pilot transonic test 
secticm. 

The test secticHi design envisioned here included the boundary layer scoo^ coxicqjt, provm 
so effective in the existing pilot transonic cascade (Shreeve et al, 1993). In addition to the test 
section area, the area occupied by the boundary layer at the nozzle exit had to be determined. This 
boundary layer area rqjresented air flow vdiich would be directed away from the test section by the 
bonmdary layer scox^s but vsiiidi had to be accounted for in determining the nozzle exit aspect 



ratio. A boundary layer scocp dqith of .25 inches was considered an aoxeptable loss from the test 
section area. By dioosing this scoxip dqitli, the nozzle length was limited to 25 indies. With these 
considerations, the exit area dimensions were determined as exit height, 5.6 inches and exit width 
3.2 indies. A list ofthe parameters for die nozzle design is givai in Table 1. 
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Maximum Exit Mach Number 

2.0 

Maximum Plenum (Supply) Pressurejpsia] 

115 

Test Section Pressure[psia] 

14.7 

Nozzle Exit Height(he)[inches] 

5.6 

Nozzle Exit Width(w)[inches] 

3.2 

Test Section Heigjit(h)[inches] 

5.1 

Test Section Wiclth(b) [inches] 

2.7 

Nozzle Laigth (Throat to Exit)[inches] 

25 


Table 1. Nozzle Design Parameters 


The nozzle exit aspect ratio determinatioa is described in detail in App^dix A. 
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in. DESIGN CALCULATIONS USING AN AUTOMATED OPTIMIZATION ROUTINE 


A multi-disciplmary design method developed by Melton of the NASA Ames Research 
Facility (Melton, 1994) was used to conduct the initial design study. The method was developed 
specifically for the redesign of a flexible plate nozzle used in the NASA Ames Unitary Wind 
Tunnel Facility. The nozzle controlled the Mach number of the transonic porticm of the tunnel over 
the range 1.3 to 1.5. The redesign involved replacing a variable thickness flexible plate and single 
throat-jack nozzle configuration with an optimized, variable-thickness flexible plate and multiple- 
jack configuration. 

The goal in the NASA design was to effect a desired aerodynamic shaping using a simple 
metal structure. There was no logical similarity between the aerodynamic shapes required to 
achieve good nozzle outflow conditions and flie shape that would be taken by a metal plate under 
combined pressure and end point loads. If the pressure loads generated by the fluid flow were of 
the same order of magnitude as the forces required to deflect the plate, foe aerodynamic and 
structural solutions directly affected cme another. The qptimization routine provided foe ability to 
analyze foe coupled aerodynamic and structural problems. 

The NASA optimizatiOT method also held foe promise of goierating a single throat jack 
cxmfiguration vfoich, fi'crni a cost efifectiveness stan^int, was appealing. The method was untried 
in foe Mach number range of 1.4 to 2.0, but foe excellent result achieved in NASA’s 1.3 to 1.5 
redesign instilled ccmfidence in foe methodology as a starting point for foe NFS design. 

A. OPTIMIZATION CODE 

The opfonization code was designed to provide a plate thickness distribution A^ch, when 
placed under a combined load of foe flow-field pressure and foe throat jack, produced an exit flow 
c(xiditi<Hi which was accqrtable to foe designer. For foe purpose of compressor cascade studies, 
foe uniformity of foe exit plane Mach distribution was of primary oHicem and was fous used as foe 
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nozzle optimization critericm. Known were the exit plane aspect ratio and Mach number range, 
vsiiich implied known nozzle area ratios and pressure ratios. TTie FORTRAN code developed by 
MehOT and Erickson (Melton, 1994) iteratively determined the q)timum thickness variatiai from 
a specified set of thickness variaticms. Nozzle length was set as constant within the qjtimization 
code, but was varied manually as part of die overall design qptimizaticxi. Material properties for 
17-7PH stainless steel were also defined within the code. 

ITie optimizaticm strategy used in the code is shown in Figure 4. Initially, a combinatioo of 
thickness distributiwis was specified by the user. The code used the method of characteristics to 
compute flow-field solutions and a finite-elemait routine to conqiute structural deformation as a 
result of the throat deflecticMi and flow field pressure loading. A constant thickness plate was 
assumed to b^in the iteration. ITie boundary cmditions simulated a plate wdiich was fixed at the 
exit and deformed by a throat jack to achieve the required area ratio. A flow field solution was 



Figure 4. Flow Chart of the Automated Optimization Method 
ralnilatfiH based <Hi this deformed shape. TTie first thickness distribution was chosen and the 
pressure loading from the flow field solution was applied along with the throat deflection boundary 
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ccHiditicm. The finite elemoit routine was run cm this updated flexible plate geometry and set of 
boundary omditicms. From this structural solution a new shape was foimd which was used to 
compute a new flow field soluticm. This procedure was ccmtinued for one wall thickness 
distributicm until the aerodynamic and structural solutions converged to within a specified 
tolerance. For this soluticm, the difference betweoi the exit plane Mach distributicm and the desired 
Mach number was stored in a vector, and the L2-norm was used to quantify the magnitude of the 
variaticm. 

The next thickness distributicm was taken from the s^ and the iteration process was 
repeated. The norm of the exit-plane Mach number variaticm for this ccmverged solution was 
compared to the previcnis solution. If this exit plane Mach number variation was less than the 
previous erne, the new thickness distributicm was saved as the currait c^imum and the other value 
was discarded. This process was ccmtinued for foe entire set of user-specified thickness 
distributiems. The optimum thickness distribution of foe defined set was foat which resulted in foe 
lowest exit-plane Macfo number variation. 

A nozzle shape was c^itimized for one cm-design Mach number. Once foe optimized shape 
was drtermined, foe code was run again for foe design plate thickness distributicm at foe required 
ofF-design Mach numbers. An exit-plane Macfo number variaticm within .005 of foe desired value 
was considered accqrtable as it was two orders of magnitude less foan foe range of desired Mach 
numbers. 

In foe original code, boundary layer properties were taken fi*om ^erimental data obtained 
in foe existing NASA wind tunnel. An attenqjt was begun to incorporate a mote general boimdary 
layer subroutine mto foe code, but foe amount of time necessary to complete foe task proved to be 
excessive. Additicmally, it was found foat foe time required per iteratiem as a result of adding an 
integral boundary layer routine would cause foe overall eptimizatiem to more than dcnible. The 
initial design studies were foeiefore conducted using an inviscid versiem of foe ccxle. Code 
(grating details are given in .^qxndix B. 
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B. RESULTS OF ANALYSIS 


The study conducted using Melton's optimization code indicated that a single jack, 
variable-plate thickness nozzle would not provide the desired uniformity in the exit plane Mach 
number over the range from 1.4 to 2.0. Two plate configurations were considered, a variable 
thickness distribution and a constant thickness distribution. 

A study was conducted to determine tlie on-design Mach number and optimum thickness 
distribution that best satisfied the exit plane Mach number uniformity requirement. Figures 5, 6 
and 7 show typical results of this study. For a design Mach number of 2.0 (Figure 5) the 
optimized thickness distribution produced an exit plane Mach distribution well within the desired 
tolerance. 

Mach 2.0 

2.5 
2 

1.5 
1 

(D 

I 0 

> -0.5 
-1 
-1.5 
-2 
-2.5 
- 0 . 

delta Mach 

Figure 5. On-Design Exit Plane Mach Distribution (Variable Thickness) 
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The procedure followed was first to obtain the optimized solution which was acceptably uniform 
but not necessarily centered at the nominal Mach number. The entire distribution curve was then 
moved by changing the nozzle area ratio by slightly changing the throat jack setting. In Figure 5, 
the exit Mach number was uniformly .002 greater tlian tlie desired value. By adjusting the throat 
jack setting to achieve a larger area ratio, this curve could be moved to the left to achieve the 
desired M = 2.0 test condition. 

The promising result shown on-design did not hold for the off-design conditions. From 
Figures 6 and 7 it can be seen that the off-design performance of the optimized M = 2.0 nozzle was 
unacceptable. It is noted however, that the degree of uniformity at the Mach numbers below 1.6 
was much better that at all Mach numbers higher than 1.6. 



Figure 6. Off-Design Exit Plane Mach Distribution (Variable Thickness) 
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Further attempts showed that optimizing the thickness distribution for any Mach number between 
1.7 and 2.0 produced ofF-design exit plane conditions which did not meet the targeted uniformity 
criteria. 



Figure 7. Off-Design Exit Plane Mach Distribution (Variable Thickness) 


The uniformity shown at the lower Mach numbers was noted to be consistent with the success of 
the NASA redesign using this method. 

A second study was conducted to determine the exit plane Mach number distributions that 
would result from deflected plates of uniform thickness. The procedure followed during the second 
study was to vary the plate thickness uniformly for a given Mach number until acceptable exit 
plane conditions were achieved. Figure 8 shows the constant thickness result for an on-design 
Mach number of 2. 
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Y (inches) 


A plate thickness of .132 inches was used to produce these results. The on-design uniform 
thickness was then run off-design. Figures 9 and 10 show the off-design performance of the 
uniform-plate thickness. 


2.5 
2 

1.5 

1 

0.5 

0 

-0.5 
-1 
-1.5 
-2 
-2.5 

-0.02 -0.015 -0.01 -0.005 0 0.005 0.01 0.015 0.02 

delta Mach 

Figure 8. On-Design Exit Plane Mach Distribution (Uniform Thickness=.132 inches) 
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Figure 9. Off-Design Exit Plane Mach Distribution (Uniform Thickness=.132 inches) 
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Figure 10. Off-Design Exit Plane Mach Distribution (Uniform Thickness=.132 inches) 


The off-design performance for the uniform tliickness plate was seen to be acceptable, but the 
thickness of .132 inches presented a problem in sealing the plate. The minimum practical 0-ring 
diameter was considered to be ,07 inches which required a gland width of .11 inches. A plate 
thickness of .25 inches was considered to be necessary to accommodate the 0-ring gland. 

A uniform plate thickness of .25 inches was analyzed to determine the nozzle exit flow 
uniformity. The results are shown in Figures 11 and 12. It can be seen that a plate of this 
increased thickness would require additional jacks to adjust the shape to achieve the desired 
uniformity at the exit plane. The .25 inch plate did however produce better exit plane Mach 
number uniformity than the variable thickness optimized solution. The results indicated that, for 
the Mach number range under consideration, a constant thickness plate was a better configuration 
than the optimized variable thickness plate. 
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Figure 12. Exit Plane Mach Distribution (Uniform Thickness-.25 inches) 
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IV. DESIGN USING SEPARATE AERODYNAMIC AND STRUCTURAL ANALYSES 


A. DESIGN STRATEGY 

Since the qrtiinizaticHi code had shown that a constant thickness plate gave better flow 
uniformity throughout the design Mach niunber range than plates of varying thickness, a logical 
approach was to begin with a COTStant thickness plate. The plate would be formed precisely to the 
shape required for one particular (design) Mach number, and a number of jacks, distributed along 
flie plate, would be used to produce the precise wall shapes required at all other Mach numbers. 

The goal then was to determine whether a series of on-design aerodynamic shapes could be 
achieved using a .25 indi thick steel plate. The design process therefore involved discrete 
aerodynamic and structural phases. The aerodynamic phase involved the generaticHi of a nearly 
continuous fomily of wail contours to provide uniform flow at Madi numbers fimn 1.4 to 2.0, and 
which accounted for boimdary layer growth. The structural phase involved determining the jack 
forces and jack distributicn necessary to achieve flie aercxlynamic shapes, and finding a practical 
method of implemaiting what was required. 

B. AERODYNAMIC SHAPE GENERATION 

The nozzle shape was separated into superscmic and subscmic portions. The shape of the 
supersonic section was determined for an inviscid perfect gas using the method of characteristics. 
An integral boundary layer method was used to compute the displacement thickness. The 
boundary layer giowfli for a two-dunensicnal nozzle effectively decreased the area ratio for a givoi 
nozzle geometry. In the presmt design, die exit dimensicms were fixed and therefore, to accoimt for 
the exit area lost to di^lacement fluckness, die throat area was decreased. Boundary layer growth 
along the side plates was accounted for by furflier decreasing the throat height. A modified version 
of a method of characteristics and integral boundary layer code develqred at the Naval Ordnance 
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Laboratory (Sievwright, 1995) was used to generate supersonic nozzle shapes over the Mach 
number range, 1.4 to 2, at incremaits of .01. 

A constant radius of curvature at the throat was specified and used for all of the shapes. 
The shapes had common axial lengths and exit half heights, but different contour lengths. In order 
to construct a constant-laigth plate mechanism which could create these shapes, the l^gth along 
the curves had to be constant, and the axial length had to be variable. Polynomial fits of the 
coordinates provided by the code were used to modify the shapes so that th^r Fq)resaited a series 
of constant length curves. The resulting configuration was a plate fixed at the exit plane and free 
to move vertically and horizontally at the throat. 

The method of characteristics required the soluticm to start at some finite distance 
downstream of the throat. The user specified a radius of curvature and file code generated throat 
half heights (based cm the exit half height). These parameters defined the throat geometry. Implicit 
in the analysis was a zero slope at the throat. When the viscous effects were accounted fiar by 
adding displacement thickness, the slope at the first point in the method of dharacteristics solution 
was changed. As a result, the polynomial fit, which cmirected die methcxl of characteristics 
solution to the throat geometry, had a non-zero slqpe at die throat. To correct this problem, a 
separate transition polynomial, which maintained the geometry of the throat, was derived to join the 
throat to die first point of the method of characteristics solutioa. TTiis transition polynomial is 
illustrated in Figure 13, and is described in detail in Appendix C. 

The subsonic section shape was ccmsidered to be less critical. At die throat it was 
necessary to msure ccmtinuity in curvature and the nozzle inlet dimensions were dictated by the 
existing plenum exit dimaisions. The subsonic shape also had to be mcmotonic. These conditicms 
were met by parameterized eiqionential fimcticms (Veihoff, 1995). Figure 14 shows the range of 
nozzle shapes which resulted. The Y value r^resents the vertical distance fi-om the nozzle 
centerline and the X value rqiresents the Icmgitudinal dimaision of the nozzle. The value X = 0 is 
at the throat of the Mach 2 shape. The aerodynamic analysis is givai in detail in Appaidix C. 
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C. STRUCTURAL ANALYSIS 

The structural analysis was ccmcentrated on resolving three issues. The first issue was 
whether a practical arrangement of jacks could be found which could achieve the aerodynamic 
shapes. The seccHid issue was to design a physical attachment mechanism between the Jack and the 
flexible plate. The third issue was it determine the effect of the pressure loading on the structure. 
The structural analysis was conducted using I-DEAS Master Series™ (Lawry, 1994). 

The Mach 1.7 shape was chosai as the on-design (undeformed) shape for the structural 
analysis. The jacks were mounted so that they were locally perpendicular to the flexible plate. The 
other shapes in the Mach number range were produced by deflecting the plate from the Mach 1.7 
shape. By choosing the mid-range Mach number, the maximum deflection required at the throat 
was ,42 inches. Jack force requirements and the jack distribution were determined by the amount 
of force required to effect the curvature change between the Mach 1.7 shape and the extremes of 
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the Mach number range. The extremes in curvature variation were represented by the difference 
between the Mach 1.7 shape and the Mach 1.4 and Mach 2 shapes (Figure 15). The shapes 
represented by the these differences were applied to a model which consisted of flat plate with the 
proposed distribution of jack attachments. The Mach 2 shape required greater deflection from the 
Mach 1.7 shape, and was thus used as the shape to be achieved by using a combination of jacks. 



Figure 15. Extreme Curvature Variation from the Mach 1.7 Shape 


Two primary frctors defined the structural design problem; the jack and the flexible plate. 
The amount of force an individual jack could exert was limited by its size. The more force a jack 
was capable of producing, the greater the ability to control the curvature of the plate. The larger 
size requirement for a stronger jack, however, required greater spacing between jacks, resulting in 
less control over the curvature. Additionally, the forces imposed on the flexible plate were not 
allowed to cause yielding or result in a fatigue life of less than 100,000 cycles (Bannantine et al., 
1990). 
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Nine jack mounting points were located at approximately three inch intervals from seven 
inches to 24.5 inches upstream of the exit. The results of the finite element analysis are shown in 
Figure 16. 



Figure 16. Finite Element Solution for Approximation of the Mach 2 Curvature Variation 
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To achieve flie downward deflection, a 225 pound and a 140 pound load was applied at 
points 3.5 inches upstream of the throat and three inches downstream of the throat respectively. To 
produce the curvature required for the Mach 2 shape, a 275 pound load was applied in the upward 
direction at the throat. 

The analysis of the jack mounting fixture involved the simpUfied model shown in Figure 
17. 
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force produced a moment at the plate-jack mount point. A 250 pound force was applied at an 
maximum ofF-design angle of 4.5 degrees. The resulting stress concaitration at the interfece 
between the jack mount fixture and the flexible plate was less than 10000 psi. Additionally, the 
maximiun deflecticm of the flexible plate betweai two jack mount points was approximately 
.00004 inches. This deflection was two orders of magnitude less than the expected machining 
tolerance of .001 inches. 

The structure was designed to minimize the effects of the aerodynamic pressure loading. 
The internal pressure loading decreased non-linearly fi’om the entrance to the exit of the nozzle. 
The loads imposed by pressure differential caused a displacement betweai the jack mount points 
and a moment about each jack mount point. A structural model was constructed, and is shown in 
Figure 18, to determine the effects of the pressure loading. 



The largest pressure loads were found to occur in the subsonic section of the nozzle where 
structural deformatiai would not adversely affect the supersonic flow. The primary area of 
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interest was the section of plate to either side of the throat jack, because of the sensitivity of the 
nozzle exit flow Mach number to the throat contour. Alcmg the length of this 6.5 inch section the 
pressure drq)ped from approximately 75 psia to 40 psia for a Mach 2.0 exit condkiai and plraum 
pressure of 115 psia. The maximum deflection of flie plate section between the throat jack and the 
first jack downstream of the throat was approximately .0002 inches. This amount of deflection 
was an order of magnitude less than the expected machining tolerance and was therefore considered 
to be accqrtable. llie cost of reducing this deflection was an increase in plate thickness or the 
addition of another jack. These qjtions were considered to be unaccqrtable. 

The graphical ou4)uts of flie finite elemoit anal3^is ccnducted <» the pr(q>osed structure 
are given in Appendix D. 
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V. MECHANICAL DESIGN 


The medianical layout of the nozzle design is shown in Figure 1 and was accomplished 
using AutoCad®(Omura, 1993). The flexible plate was designed to be made of stainless steel and 
formed so that it took the shape required for Mach 1.7. The plate was restrained fully at the nozzle 
exit. A slip joint was used to enable the nozzle entrance to translate in the direction parallel to the 
nozzle coiterline and to msure zero slq)e at the oitrance. Eighteoi jack screws arranged alcng the 
upper and lower nozzle plates, were designed to force the plates to the shapes required for all other 
Mach numbers. An aluminum fi^e provided a structural base for steel side plates and a means of 
attachment to the plenum and test section. A large I-beam outer frame provided the structural 
rigidity to support the jack loads. The list of coordinates describing the Mach 1.7 shape and 
engineering drawings of the nozzle compcments are provided in Appendix E. 

A seal was provided between the flexible plate edges and the side walls. The seal consisted 
of a .07 indi 0-ring inserted in a groove madiined along the .25 inch edges. Tube-shaped spacers 
were used to oisure that .002 indies of clearance was maintained betweoi the flexible plate edges 
and the side walls. A . 139 indi 0-ring was used to seal the gap between the flexible plate and the 
fi:ame upstream of the slip joint.(Parker, 1981) 

The jack screw used in the nozzle mechanism was unique to this design. The acciuacy 
requirements for positiixiing the flexible plate (.001 inches) precluded the use of pneumatic or 
hydraulic actuators. A syston incoipoiating ei^iteen stqiper motors and a controller inter&ced 
with the cascade Data Acquisitioi System computer was to be used. The ccmtrolling software 
would be designed to sdiedule the jack screw lengths necessary to achieve the required shape ft>r a 
given Mach number. The system would be a multi-channel equival^t of the system devel<^ed by 
Myre for traversing probes (Myre, 1993). The jack screw design was based on the use of a 2.25 
inch by 2.25 inch square st^per motor rated at 150 ounce inches of torque, mounted to drive a 
threaded shaft. The selected nominal thread size was 3/8 - 32 of the American National extra fine 


31 



thread series (Morse, 1968). As the shaft was rotated, the force necessary to deflect the plate was 
applied to a telescoping tube with the same internal thread dimaisions. The jack length program 
required the coordinates of the center of the jack-mount eyelet and the jack pivot point. The 
coordinates of the center of the jack-mount eyelet for any given Mach number was determined 
using the aerodynamic analysis routine presorted in Appoidix D. The jack pivot points were 
determined using AutoCad, by positicsiing the jack screw perpendicular to the flexible plate, 
establishing the pivot point locatioi and reading the relatiA« coordinates provided by the software. 
The jack-length program is given in ^pendix D. The jacks were mounted on bohs inserted 
throu^ one half-indi steel side plates 

The inner flame was made of aluminum for ease of machining. The primary purpose of 
the iimer fl'ame was to hold the three sets of steel side plates in place. Two sets of side plates 
served as the structural ft)undatioo ftrr the jack pivot ponrts. (^e set of plates was used to seal the 
nozzle. The aluminum inner flame also provided the means of attaching the nozzle mechanism to 
the plenum and the test section. At the inlet aid of the nozzle, the inner flame mated with the 
existing plenum outlet plate. The aluminum flame was mounted to an outer fl-ame consisting of ten 
6x12 indi wide flange I-beams (Bauld, 1986). 
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VI. CONCLUSIONS AND RECOMMENDATIONS 

A. CONCLUSIONS 

The presort study provided the necessary information to ccmstruct a two-dimensioial 
flexible-plate nozzle for an iterating Mach munber range of 1.4 to 2.0, designed to be 
incorporated in the supersonic wind tunnel at the Naval Postgraduate School's Gas Dynamics 
Laboratory. Three phases were involved. The first was to examine the ability of the blow-down 
facility to provide the necessary run times in tests using a suitable scaled compressor cascade test 
section, nie second was a design study using a multi-disciplinary optimization routine. This study 
assessed the feasibility of using a single jack and a flexible plate with varying thickness to achieve 
acceptable exit Madi number uniformity over the range required for cascade model tests. The 
third phase addressed the nozzle design using indqjoident aerodynamic and structural solutions. 

The initial sizing study showed that the supersmic blow-down facility was capable of 
providing the necessary air flow for a test section with a cross secticxial area large ^ough to 
accommodate cascade models of interest. The system was calculated to provide steady test 
conditions at M = 1.9 for three minutes with a nozzle exit area of 18 square inches. 

The design study using the optimizatiai code showed that a single jack, variable plate- 
thickness configuration was not able to produce exit flow uniformity that was widiin desired limits 
over die design Madi number range. The study also showed however, that a constant thickness 
plate was capable of producing an accqrtable exit plane Mach variation. The specific uniform 
thickness vdiich gave this promising result was .132 indies, which was considered too thin to seal 
effectively. A plate fliickness of .25 indies, vdiidi could be sealed with an 0-ring of 1/16 indies, 
was thou^ to be necessary. Analysis of the .25 inch plate showed that the performance, while 
unacceptable, was far better over the full Madi number range than the qrtimized variable thickness 
configuration. The .25 inch plate was thus considered a logical starting point for a multiple jack 
design study. The general conclusion was that Ae qrtimized single-jack arrangraneirt could give 
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good results at lower supersonic Mach numbers (for wdiich it was develqied), but that the changes 
in shape required at Mach numbers approaching 2 were too large to be approximated well using a 
single jack and thickness distributicm qjtimized at cme Mach number 

In the third phase, the aim of the multiple jack, constant plate-thickness design study was 
to determine if specific aerodynamically determined qjtimum shapes could be achieved using a 
reasonable munber of jacks arranged alcmg a .25 inch stainless steel plate. An aerodynamic 
analysis was performed to determine the nozzle shapes capable of producing Mach munbers fi’om 
1.4 to 2. Finite-elemmt models were used to determine the jack distributic® and jack forces 
necessary to adiieve the off-design nozzle shapes, based oo the plate being unstressed with the 
contour required at die design Mach number = 1.7. Addkicxial structural analysis was carried out 
to determine a durable means of attaching the jack to Ae plate without greatly increasing Ae 
stifiBiess of Ae plate. These stuAes showed that it was possible to achieve Ae required 
aerodynamic Aapes wiA Ae mechanism described. The analysis also Aowed that Ae stress 
amcentrations associated wiA Ae jack mounting fixAre were well below Ae aidurance limit. 

The Allowing elemaits in Ae process are seen to be key to conq)leting Ae presort design; 
-success&lly deriving oi-design coitours which had a common throat radius of 
curvature, and commoi surAce lengA 

-finding an accurate analytical approximaticm for Ae femily of contours from Ae 
subsonic approadr r^(® to Ae superscxiic exit plane 
-using an unstressed, madiined shape at a Mach number near Ae midAe of Ae 
required range 

-using int^rally machined bosses for jack attachment 
-using deflected flat-^late modeling to find off-design stresses. 
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B. RECOMMENDATIONS 

The anal)^is conducted showed that a nozzle medianism could be built which was capable 
of producing the required aerodynamic shapes. Two areas of structural analysis are recommended 
for further study. The first is to examine the effects of thermal gradients, whidi must develop 
during the course of wind tunnel tests, on the flexible plate. The second is to examine the out-of¬ 
plane bending or 'saddling' that should occur due to Poisson's effect al(xig the sevra inch secticn of 
plate stretching from the last jack to the nozzle exit. 

The goal of the third phase was to produce a medianism vdiidi produced (m-design shapes 
at all Mach numbers over the required range. In feet, the only perfect on-design shape is for M = 

1.7, the unstressed condition of die flexible plate. The exit plane Mach variation for all the shapes 
other than the Mach 1.7 shape (which was machined to provide a perfect result) was not 
calculated. The af^lication of a viscous CFD code to the off-design shapes produced by the 
elastically deformed plate, is therefore recommended to determine the off-design exit^lane Mach 
number distributions. 

Finally, a detailed cost analysis is required before a commitmait can be matfe to the 
proposed design. 
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APPENDIX A. NOZZLE EXIT AREA AND ASPECT RATIO DETERMINATION 


A. NOZZLE EXIT AREA DETERMINATION 

The nozzle exit area determination was based cm the ideal gas law and the mass flow 
relaticmships. TTie following nomaiclature was used in the developmait of the nozzle exit area 
relationship; 

a - Local sound velocity(ft/s) 

A - Nozzle exit area(ft^) 

A* - Throat area(ft^) 

Cp - Specific heat at ccmstant pressure(Btu/lbm-OR) 

Cy - Ccmtrol valve volumetric flow rate coefficiait 
gp - Acceleration due to gravity(ft/s2) 

G - Gas specific gravity 
m - Mass(slugs) 

m| - Mass of air in tanks at beginning of test(slugs) 
m 2 - Mass of air in tanks at end of test(slugs) 

o 

m - Mass flow rate(slugs/s) 

M - Mach number 
p - static pressure 

p 1 - Pressure in tanks at b^inning of testObfift^) 

P( - Plenum stagnation pressureObfifl^) 

Pt* - Stagnaticm pressure at throat (sonic) ccmdition(lbf/ft2) 

^ • Pressure difierential across ccmtrol valve whoi the valve loses its ability 
to ccmtrol the plenum pressure(lbfift2) 

Qscfli - Volumetric flow rate in standard cubic feet per hour(ft3/hr) 

R - Gas constant(ft-lbf/lbm-OR) 
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t - Run time(sec) 

T - Static temperature(°R) 

T 1 - Temperature in tanks at beginning of test(°R) 

T2 - Temperature in tanks at aid of test(°R) 

Tf - Stagnation temperature(®R) 

Tf* - Stagnation pressure throat(®R) 

V - Flow velocity(ft/s) 

V - Tank volume(ft^) 

7 - Ratio of specific heats 
p - density(slugs/ft^) 

Pst - Standard atmospheric density(slugs/ft^) 

Using the ideal gas assunqiticxi and the mass flow rate relatim, an expressim for the 


nozzle exit area was found as follows: 


using 

p = pRT 

(1) 

and 

o 

m = pAv 

(2) 

it can be shown that 



A- V 2y • 

(3) 

where. 

V,=-y/2CpT, 

(4) 


The mass of air in the storage tanks at the beginning and the end of the test was used to 
determine the mass flow rate as follows: 
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( 5 ) 




Cy was determined experimaitally using the superscmic tunnel at a Mach number of 1.4. 

A was known for the nozzle, average values for and were takoi in three tests. The tests 
involved running the tunnel until the control valve could no longer omtrol the ploium pressure. 

o 

The following 'choked' mass flow relationship was used to compute m. 
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o 

in = 


-(r+i) 


p.‘a* 

1 ^ 

Y+r 


ilRgc 

2 


( 11 ) 


and Cy was found from equation (9) and equation (10). The tests results were; 


p/= 44.7212^ 
in 


A’ = 14.3507m^ T,* = 508.17" R 


m= 47059^ =712437.65^ C, = 1.6576 

s nr 

A spread sheet was used to find exit areas for a range of Mach numbers, run times and 
initial tank pressures. The results are givai in Tables 2, 3 and 4. 


Mach# 

RunTime(min) 

Pl(psi) 

Area(in'^2) 

1.8 

3 

260 

17.38721912 

1.8 

3 

270 

18.07997832 

1.8 

3 

280 

18.75730801 

1.8 

3 

290 

19.4201954 

1.8 

3 

300 

20.06952674 

1.8 

2.5 

260 

18.65062775 

1.8 

2.5 

270 

19.36192545 

1.8 

2.5 

280 

20.05655125 

1.8 

2.5 

290 

20.73562524 

1.8 

2.5 

300 

21.40014744 

1.8 

2 

260 

20.04168194 

1.8 

2 

270 

20.76930749 

1.8 

2 

280 

21.47911511 

1.8 

2 

290 

22.17235298 

1.8 

2 

300 

22.85013004 


Table 2. Nozzle Exit Areas 
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ich# 

RunTime(min) 

Pl(psi) 

Area(in^2) 

.9 

3 

260 

15.85116582 

.9 

3 

270 

16.55758881 

.9 

3 

280 

17.24769901 

.9 

3 

290 

17.92257689 

.9 

3 

300 

18.58318867 

.9 

2.5 

260 

17.12754154 

.9 

2.5 

270 

17.85704739 

.9 

2.5 

280 

18.56862914 

.9 

2.5 

290 

19.26354644 

.9 

2.5 

300 

19.94291799 

.9 

2 

260 

18.55170355 

.9 

2 

270 

19.30187784 

.9 

2 

280 

20.0326015 

.9 

2 

290 

20.74531332 

.9 

2 

300 

21.44128302 


Tables. Nozzle Exit Areas 



! 260 

14.15579788 

; 270 

14.88156796 

; 280 

15.5898198 

1 290 

16.28176385 

! 300 

16.95847725 

5 260 

15.42726067 

5 270 

16.18234737 

5 280 

16.91776377 

5 290 

17.63497146 

5 300 

18.3352595 

260 

16.86958312 

270 

17.65149433 

280 

18.411624 

290 

19.15169694 

300 

19.8732217 












B. 


NOZZLE EXIT ASPECT RATIO DETERMINATION 


The nomenclature used in the nozzle exit aspect ratio calculations is shown in Figure 19. 



The heigjit of the test secti<»i for a three blade passage caifiguration was given by 

h = 3sina (12) 

The angle,a was based on the stagger angle for the cascade to be tested. The test section width 
was 

b = --s (13) 

c s 

^ c 

v^diere, — would determine the degree of two dimoisionality and — was the solidity of the cascade 
c s 

to be tested. The test secticm area was given by 

= hb = 3s^ ——sin a (14) 

c s 

and the boundary layer scoop area was 
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A, = 2bd + 2hd = 2d(b + h) 


(15) 


where d was the depth of scoop determined by the boimdary layer thickness. The nozzle exit 
dimensions were determined using the following relationships: 


w = b+2d 

(16) 

hg = h + 2d 

(17) 


The hallowing MATLAB program was used to find the test sectiffli aspect ratio: 

%Program testsec.m 
%Calculates test section parameters. 

%Specified parameters: 

% Farea - Nozzle exit area 
% sol - Blading solidity (c/s) 

% twoD - Factor of two dimensionality (b/c) 

% staggerangle - exactly that 
% b,h - Starting values for test section width 
% and height respectively. From these 

% values, a shooting iteration is conducted 
% until convergence is achieved. 

% d - Boundary layer thickness at nozzle exit 
% 

%C)u^t values: 

% s - Blade spacing 

% c - Blade chord 

% b - Test section width (converged solution) 

% h - Test section height (converged solution) 


Farea = 18; 

sol = 1.97; 

twoD = .6; 

staggerangle = 40; 

alpha = (90 - staggerangle)*pi/180; 

b = 4; %test section width 

h = 5; %test section height 

d=.25 

c=0;s=0;m=0; 
maxit = 7; 

out = zeros(maxit,4); 

out(l,:) = [s c b h]; 
for m= l:maxit, 

s = sqrt( (Farea-(2*d*(h+b+(2*d))))/(3*sin(alpha)*twoD*sol) ); 
c = sol*s; 
b = twoD^c; 

h = (Farea-(2*d*(h+b+(2*d))))/b; 
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end 

out 


out(m+l,;) = [s cbh]; 


For the values assumed in the program, the result was a nozzle exit height of 5.6 inches and a 
nozzle exit width of 3.2 inches. 
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APPENDIX B. OPTIMIZATION CODE 


The nozzle qptimization code was written by Melton and Erickscm of the NASA Ames 
Research Facility. Melton modified the code for use in the present design, provided all the 
informaticai necessary to run it cm NPS computers and was the point of ccmtact at NASA Ames. 
The program was a working code and required some knowledge of the FORTRAN 77 
programming language. The code was run on the NPS CRAY EL-98 \riiich increased the per 
iteration CPU time approximately five times over NASA's CRAY C-90. 

The qrtimizaticm code was used interactively and as a batdi process. Because of the limit 
on interactive CPU time, more than approximately twaity iteraticms required operation in batch 
mode. For foe presait design study, foe optimization process required many iteratiOTS and was run 
as a batch job. The off-design performance assessmmt at each Mach number required cme 
iteration and was performed interactively. 

The program was written to read a ccmimand line specified input file. Whoi foe program 
was nm interactively foe following command specified foe input file and ran foe code: 

nozopt < input_file 

Because foe program was a working code, foe arbitrary program name nozopLf was used for foe 
version at NPS. The original name was mocfem.f. 

In order to run foe co^ as a batch process, a batch file had to be writtoi. The following 
file is exanq)le of this batch file: 


1 

2 

3 

4 

5 

6 

7 

8 

9 

10 


#QSlJB-qprem 

# QSUB -0 rl.batch 
#QSUB-eo 

# QSUB -IT 200000 

# QSUB-It 200000 

# QSUB -IM lOMw 
#QSUB-€o 

# QSUB -me 


# regular queue(Teg,prem) 

# name the output file 

# direct errors to the output file 

# Set the CPU time limit(total time) 

# Set the CPU time limitfindividual job tinK) 

# Set the CPU memory limit 
# Standard output direction 


# 

#— Set shell variables 
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11 

set RUN =rl #input should be copied to match 

12 

set SCR = STMPDIR 


13 

set nozl = nozopt 


14 

# 


15 

cdSSCR 


16 

# 


17 

#— Copy the required files to the scratch directory 


18 

cp/dl/tgemmert/${RUN}.in . 


19 

#cp/dl/tgemmert/inputl6 . 


20 

cp/dl/tgemmert/${nozl} . 


21 

# 


22 

Assign: 


23 

# 


24 

#env FILENV=.ass${RUN} assign -a ${RUN}_ctrmach 

fort. 3 

25 

#env FILENV=.ass${RUN} assign -a ${RUN}_strdist 

fort.4 

26 

#env FILENV=.ass${RUN} assign -a ${RUN}_deflect 

fort.8 

27 

#env FILENV=.ass${RUN} assign -a ${RUN}_walldef 

fort. 13 

28 

#env FILENV=.ass${RUN} assign -a ${RUN}j)resdist 

fort. 14 

29 

#env FlLENV=.ass${RUN} assign -a ${RUN}_wallniach fort. 15 

30 

#env FILENV=.ass${RUN} assign -a ${RUN}_thickdist fort. 16 

31 

#env FILENV=.ass${RUN} assign -a ${RUN}_ctrlm 

fort. 12 

32 

# 


33 

env FILENV=.ass${RUN} $nozl < ${RUN}.in > ${RUN}.i»1 

34 

# 


35 

#~ Copy the ouqmt files back to the main directory 


36 

cp ${RUN}_ctnnach /dl/tgemmert/rl 


37 

cp ${RUN}_strdist /dl/tgemmert/rl 


38 

cp ${RUN}_deflect /dl/tgemmert/rl 


39 

cp ${RUN}_walldef /dl/tgemmert/rl 


40 

cp ${RUN}_presdist /dl/tgemmert/rl 


41 

cp ${RUN}_wallmach /dl/tgemmert/rl 


42 

cp ${RUN}_thickdist /dl/tgemmert/rl 


43 

cp ${RUN}_ctrlm /dl/tgemmert/rl 


44 

cp ${RUN}.prt /dl/tgemmert/rl 



TTie line numbers were added to aid in referaice. The '#■ symbol indicates commait lines excqrt in 
lines 1-8. The per iteration time was approximated as 50 seconds and vrfiai multiplied by the 
number of iterations, determined the total CPU time required for an qrtimization run. TTiis CPU 
time was specified in lines 4 and 5. The CPU memory requiremaits were conservatively estimated 
as 10 megawords. A ccanmon input file name and ouqnit directory name was set in line 11. The 
program name was specified in line 13. Lines 18 and 20 c<^y the input file and the executable 
code to the scratch directory. Lines 24 tiiroug^i 31 were commented out, but remain as an exairqjle 
of how to manipulate the defiiult fort.* output files. Line 33 specified the file in vdiich screai 
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output was to be saved. Lines 36 through 41 cq}ied the output files from the scratdi directory to 
the output directory. The name of this file was runner.nqs and it was submitted to sinus (the NFS 
CRAY EL-98) by typing the fiallowing at the UNIX command line: 

qsub ninner.nqs 

The input file for the cptimizaticm code is listed here; 


1 10 Number of design variables 

2 1 Number of design iterations 


3 

#of 

Starting 

Starting 

Reduction 

4 

variations value 

radius 

factor 

5 

1 

0.0 

0.0 

0.7 

x-station 

6 

1 

0.25 

0.0 

0.7 

thickness 

7 

1 

5.0 

0.0 

0.7 

x-station 

8 

1 

0.25 

0.0 

0.7 

thickness 

9 

1 

10.0 

0.0 

0.7 

x-station 

10 

1 

0.25 

0.0 

0.7 

thickness 

11 

1 

15.0 

0.0 

0.7 

x-station 

12 

1 

0.25 

0.0 

0.7 

thickness 

13 

1 

25.0 

0.0 

0.7 

last x-station 

14 

1 

0.25 

0.0 

0.7 

thickness 


15 

16 1 Niunber of design conditions 

17 2.0 Design Mach number 

18 50 Number of points from N to S wall 

19 1.0 x-locationofupstream characteristic starting line 

20 16563.38 Stagnation pressure (psf) 

21 2116.8 Plenum pressure (psf) 

22 1.0 North nozzle jack setting 

23 1.0 South nozzle jack setting 

24 0.0 Throat disidaceiiient thickness 0.63575 

25 0.0 Displacement thickness growth coefficient 0.00875 

26 b.O Foreshortening distance (positive) (.30651) 

27 0.0 Upstream rotation angle (degrees) N 

28 0.0 Upstream rotation angle (degrees) S 

29 0.0 Downstream rotation angle (degrees) N 

30 0.0 Downstream rotation angle (degrees) S 

31 3.2 Width of flexwall (inches) 

32 2.8 Pyf height of nozzle exit or vert dist from centerline to exit 

33 25.0 Length (horizontally) from throat to exit 

For the presoit design study, five points were diosen along the flexible plates as points of 
specified thickness. The program generated the remaining wall thickness values by spline fitting 


the five thickness values, ft was possible to c^}tiimze the thickness distributicxi for a ccmstant 
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longitudinal value along the wall or this 'x-station' could be varied. The design variables referred 
to in line 1 were the thickness and x-station values specified in lines 5 throu^ 14. The nxunber of 
design variables was twice the number of stations along the wall. The program was set for 
multiple iteratiOTS in line 2. The point about which the thickness qjtimizatiOT was carried out was 
specified in the 'starting value' column of lines 5, 7, 9, 11 and 13. The starting thickness value was 
specified in die 'starting value' column of lines 6, 8, 10, 12 and 14. A search radius was specified 
in the 'starting radius' column. The starting radius specified the range of values around the starting 
values which the program searched during the qrtimizatioo. This distance to either side of the 
starting value was divided into equal lengths by the value specified in the '# of variations' column. 
The value specified in the 'reduction fector* coliunn was used to reduce the seardi radius on 
subsequent iteraticms. This input file was set up for an interactive, single iteration run. Lines 16 
and lines 24 through 30 were not dianges in this version of the program. Lines 17 through 23 and 
lines 31 through 33 require the user to specify apprqiriate values for a nozzle of interest. 

The program output cmsisted of, exit plane Mach distribution, flexible plate stress 
distribution, plate shape with respect to the exit, the plate shape with respect to the nozzle 
centerline, the flow field pressure distributiOT, the Mach mmiber at the plate sur&ce, die plate 
thickness distributi<m, the caiterline Mach distributi(Mi and the restraining forces at the exit and 
throat. A MATLAB™ script file was used to display the ouq}ut. This file is shown below: 

%program plotnoz.m 

loadrl_ctnnach; 
load rl_strdist; 
load rl_deflect; 
load rlwaUdef, 
load rl_piesdist; 
load rlwallmach; 
load rl_thickdist; 
load rlctrlm; 

sul^lot(4,2, l);plot(rl_ctnnach(:,2),rl_ctnnach(:, l));grid; 

axis([-.01,.01,.2.8,2.8]); 

titleCExit Plane Mach Distribution*); 


48 



ylabelCV); 
xlabelCDel Mach'); 

sabplot(4,2,2);plot(rl_strdist(;,l),rl_strdist(:,2));grid; 

title('Stress Distribution'); 

ylabel('Stress'); 

xlabel('X'); 

subplot(4,2,3);plot(rl_deflect(:,l),rl_deflect(:,2));grid; 

title('Wall Deflection (from base)'); 

ylabelCY); 

xlabelCX'); 

sut^lot(4,2,4);plot(rl_walldef(:,l),rl_walldef(:,2),rl_walldef(;,l),rl_walldef(:,3),'y');grid; 

title('Wall Shape wrt Centerline'); 

ylabelCV); 

xlabel('X'); 

sul^lot(4,2,5);plot(rl_|Hesdist{:,l),rl_presdist(:,2));grid; 

title('Pressure Distribution'); 

ylabelCPressure'); 

xlabel('X'); 

snlplot(4,2,6);plot(rl_wallmach(:,l),rl_wallmach(:,2));grid; 

titleCWall Mach Number Distribution'); 

ylabel('M'); 

xlabel('X'); 

subplot(4,2,7);plot(rl_thickdist(:,l),i’l_thickdist(:,2));gri<i; 

titleCWall Thickness Distribution'); 

ylabel('T'); 

xlabel('X'); 

sul^lot(4,2,8);plot(rl_ctrim(:,l),rl_ctrlm(:,2));grid; 
titleCCenterline Mach Distribution'); 
ylabelCMO; 
xlabel('X'); 

An abbreviated flow diart for the nozzle qjtimizatioi code is depicted in Figure 20. 
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( SPECIFIY MATERIAL PROPERIES J 

^ SET NOZZLE LENGTH, WIDTH ^ 
AND EXIT HALF HEIGHT ^ 

SET INITIAL PLATE THICKNESS VARIATION 
AND RADIUS OF SEARCH 


[ SET VARIATION 1 EQUAL TO 

THE HRST THICKNESS VARIATION ^ 

ASSUME CONSTANT PLATE THICKNESS 

( IMPOSE BOLTNDARY CONDITIONS ON PLATE 

^COMPUTE STRUCTURALLY DEFORMED 
^ SHAPE USING FINITE ELEMENT MODEL 

COMPUTE FLOW FIELD SOLUTION FOR SHAPE 
USING METHOD OF CHARACTERISTICS 


SAVE STRUCTURAL AND AERODYNAMIC 
SOLUTIONS AS SOLUTION 1 


APPLY SOLUTION 1 TO THICKNESS 

VARIATION SPECIFIED IN VARIATION 1 

^ - -- - -- .— 

COMPUTE STRUCTURALLY DEFORMED 
SHAPE USING FINITE ELEMENT MODEL 


COMPUTE FLOW FIELD SOLUTION FOR SHAPE 
USING METHOD OF CHARACTERISTICS 
___ 

^SAVE STRUCTURAL AND AERODYNAKflC 
SOLUTIONS AS SOLUTION 2 


IS THE DIFFERENCE BETWEEN SOLUTION 1 
AND SOLUTION 2 WITH TOLERANCE 


SAVE THIS SOLUTION AS 
OPTIMIZED SOLUTION 


IS THIS OPTIMIZED SOLUTION BETTER 
THAN THE LAST OPTIMIZED SOLUTION 


CODE FLOWCHART 



SET VARIATION 1 
EQUAL TO NEW 
THICKNESS VARIATION 




SET SOLUTION i EQUAL 
TO SOLUTION! 


NEW OPTIMIZED SOLUTION 
BECOMES OPTIMIZED SOLUTION 


LAST OPTIMIZED SOLUTION 
REMAINS OPTLMIZED SOLUTION 


WHEN SOLUTIONS FOR ALL OF THE SPECIFIED 
THICKNESS VARIATION COMBINATIONS HAVE 
BEEN DETERMINED, THE OPTIMIZATION IS COMPLETE 












APPENDIX C. AERODYNAMIC SHAPE DEVELOPMENT 


A. SUPERSONIC SHAPE 

The superscHiic shape was generated using a modified versicm of a program writtai at the 
Naval Ordnance Laboratory (Sievwright, 1995). The program was modified from the Sievwright 
version to facilitate the fest iteration required to generate the 61 shapes covering the Mach munber 
range 1.4 to 2. The code read input values from a command-line specified input file. The method 
of characteristics was used to d^ermine the inviscidc<mtours. An integral boundary layer soluti<Hi 
was th^ found for the inviscid solution. The displacement thickness was added to the dimensions 
of the inviscid nozzle shape. To find the shape whidi provided the desired area ratio, the specified 
initial exit half height was decreased until the desired exit half height was reached by the code 
generated solution. The input fille is listed here: 


2 INDSR - TYPE OF NOZZLE, 1-SHORT, 2-REGULAR, 3-EXPONENTIAL 
1 INDYTH - THROAT C» EXIT HEIGHT TO BE READ IN YTHEX 1-YEXIT, 2-YTH 

1 INDXTE - INDICATE XT OR XEXIT TO BE READ IN XEXXT, 1-XEXIT, 2-XT 

2 INDOUT - INDICATE OUTPUT, 1-STEP BY STEP, 2- WALL POINTS ONLY 
1.4 GAMMA - RATIO OF SPECmC HEATS (1.4) 

2.0 ***SMT - TEST SECTION MACH NUMBER 

25. XEXXT - EXIT LENGTH OR BEGINNING OF TEST RHOMBUS (INCHES) 

2.66006 ***YTHEX - HALF HEIGHT OF NOZZLE THROAT OR EXIT DEffiNDING ON 
INDYTH (INCHES) 

95. RCT - RADIUS OF CURVATURE AT THROAT (INCHES) 

.5 DELMUL - MULT. FACTOR FOR X INCREMENT (1.0-150 PTS, 0.5-400 PTS) 

2 INDMO-BLAYER MCff)E: 1. LAMINAR, 2. TURBULENT, 3. LAM-TRANS-TURB 
1 INDTW-WALL TEMP 1. CONST=TWALL, 2. ADIA WALL TEMP,3. TEMP DIST 
INPUT BY USER 

1 INDTR-TRANS IND(IF INm4(>=3)l.TRANS AT RETHETA VALUE GIVEN IN TRCON, 

2.TRANS AT X GIVEN IN TRCON 

2 INDWC- IND BLAYER CALC 1. CENTERLINE ONLY, 2. WALL ONLY, 3. BOTH 

0 TRCON-TRANSmON CONSTANT EQUAL TO RETHETA (REYNOLDS NUMBER BASED 

ON THE MC»4ENTUM THICKNESS C»^ THE BOUNDARY LAYER) C» XTRANS 
(HORIZONTAL DISTANCE RELATIVE TO THE THROAT) DEPENDING ON INDTR 
.00001 THZER(>THETA(M(»ffiNTUM THICKNESS) AT THROAT IN FEET(USUALLY=1.0E- 
5) 

114.9868 ***PO-STAGNATION HIESSURE IN LBS/IN2 

520. TO-SUPPLY TEMP IN DEGREES R 

520. TWALL-WALL TEMP IN DEGREES R IF INDTW=1 

0.0 XTEND-EXTENSION LENGTH OF NOZZLE WALL PAST EXIT AS DEFINED 
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BY THE ISENTROPIC CORE(INCHES) (ASSUMES UNIFORM DUCT FLOW) 
0.0 DL-INCREMENT IN X FROM ISENTROPIC EXIT TO EXTENSION LENGTH IN 
(INCHES) 

3.2 B-WIDTH OF NOZZLE 
1.4 GAMMA-RATIO OF SPECIFIC HEATS 

0.76 CH^IEGA-EXPONENT IN VISCOSITY-TEMP RELATION (AIR=0.76) 

28.97 WATE-MOLECULAR WT OF GAS (AIR=29) 

0.24 CP-SPEC HEAT OF GAS IN BTU/LB-DEG R(AIR=0.24)) OR LEAVE BLANK 

AND LET PROGRAM PICK VALUES 
0.72 PR-PRANDTL NUMBER (AIR=0.72) 


The modified version of the method of characteristics, viscous boundary layer code was called 
mocvbhf and is listed below; 


include "mocsub.f 
include "vblsub.r 

PRCXjRAM mocvbl 

C driver code for method of characteristics and viscous 
C boundary layer subroutines 
C 1 2 3 4 5 6 7 

C2345678901234567890123456789012345678901234567890I234567890I23456789012 

call mocsub 
call vblsub 
end 

SUBROUTINE SETXEQ(XW,NO,XL,SML,NEND) 

EMPLICrr DOUBLE PRECISION (A-H,0-Z) 

DIMENSION XW(600),XL(600),SML(600),SMM(600) 

DO 70 J=l,600 
JT=J 

IF (XL(J).GE.XW(NO)) GO TO 71 
70 CONTINUE 
71K=JT 
KENI>=NEND-3 
DO40I=NO,NEND 
5 IF(XW(I).LE.XL(K)) GO TO 10 
K=K+1 
G0T05 

10 IF(K.LE.KEND) GO TO 20 
GO TO 30 

20 CALL LAGINT(XL(K-2),SML(K-2),5,XW(I),SMM(I),DYO) 

GO TO 40 

30 CALL LAGINT(XL(K-4),SML(K-4),5,XW(I),SMM(I),DYO) 

40 CONTINUE 
DO60J=NO,NEND 
XL(J)=XW(J) 

SML(J)=SMM(J) 


52 



60 CONTINUE 
RETURN 
END 

SUBROUTINE LAGINT(X,Y,NPTS,XX,YY,DYY) 
IMPLICIT DOUBLE PRECISION (A-H,0-Z) 
DIMENSION X(1),Y(1) 

YY=0. 

DYY=0. 

DO40I=l,NPTS 

CI=1. 

C2=I. 

DO 10 J=1,NPTS 
IF(J .EQ. I)GOTO10 
C1=C1*(XX-X(J)) 

C2=C2*(X(I)-X(J)) 

10 CONTINUE 
SUM=0. 

DO30J=l,NPTS 
IF(J.EQ. I)GOTO30 
C3=l. 

DO20K=l,NPTS 

IF (K EQ. I OR. K EQ. J) GO TO 20 
C3=C3*(XX-X(K)) 

20 CONTINUE 
SUM=SUM+C3 
30 CONTINUE 
C=Y(I)/C2 
YY=YY+C*C1 
DYY=DYY+C*SUM 
40 CONTINUE 
RETURN 
END 


subroutine mocsub 

,^^tlt:^ti^**************************************************************** 

* Modified by: LT Douglas L. Seivwright * 

* March 1994 * 

* BY TERRY EMMERT 15 DEC 1994 ♦ 

* * 

* INDSR - INDICATE TYPE OF NOZZLE, 1-SHORT, 2-REGULAR, 3-EXPONENTIAL * 

* INDYTH-INDICATE THROAT CHI EXIT HEIGHT TO BE READ IN YTHEX ♦ 

* 1-YEXIT, 2-YTH * 

* INDXTE - INDICATE XT CHI XEXTT TO BE READ IN XEXXT, 1-XEXIT, 2-XT * 

* INDOUT - INDICATE OUTPUT, 1-STEP BY STEP, 2- WALL POINTS ONLY * 

* * 


* GAMMA-RATIO CH^SPECMC HEATS (1.4) * 

* SMT-TEST SECTION MACH NUMBER ♦ 

* XEXXT - EXIT LENGTH CHI BEGINNING OF TEST RHOMBUS (INCHES) * 

* YTHEX-THE HALF HEIGHT OF NOZZLE THROAT OR EXIT DEPENDING ON * 

* INDYTH (INCHES) * 
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n n n n n n 


* RCT-RADIUS OF CURVATURE AT THROAT (INCHES) * 

* DELMUL - MULT. FACTOR FOR X INCREMENT (1.0-150 PTS, 0.5-400 PTS) * 

* * 


IMPLICIT DOUBLE PRECISION (A-HO-Z) 

INTEGER ERROR 

DIMENSION Y(2,400),X(2,400),A(2,400),SM(2,400)^TA(2,400), 
1T(2,400),THE(2,400),XL(600),XW(600),YW(600),SML(600), 
2SMW(600),THEW(600),XCOR(600),FMT(10),R(600),SMLR(400), 
3SMWR(400),XLXEX(400),XLYEX(400),YWYEX(400),XLXT(400) 

CHARACTER*8,FMT 

CHARACTER*20,TYPE1,TYPE2,TYPE3,HGT1,HGT2,LGTH1,LGTH2, 

10UTPT1,0UTPT2 

CHARACTER*l,TYPNOZ,TYHIGT,TYPLTH,TYPOUT,INSRP 

COMMON Y(2,400),X(2,400),A(2,400),SM(2,400),ETA(2,400),T(2,400), 

1THE(2,400),XL(600),XW(600),YW(600),SML(600),SMW(600),THEW(600), 

2XCOR(600),FMT(10),R(600) 

COMMON SMLR(400),SMWR(400),XLXEX(400),XLYEX(400),YWYEX(400), 
1XLXT(400) 


OUTPTl IS THE MAIN OUTPUT FILE FC« char6.f WHICH DISPLAYS THE 
ISENTROPIC CCMRE DATA OF THE NOZZLE. OUTPT2 IS THE DATA FROM 
THE OUTPTl FILE THAT IS USED FC» THE VISCOUS CALCULATIONS IN 
nbl6.f 


C Ca^(UNIT=16,FILE=’outptl’,STATUS='UNKNOWN') 
OPEN(UNIT=17,FILE=’outpt2',STATUS='UNKNOWN') 


C 

C DO NOT REMOVE THESE ASSIGNMENT STATEMENTS. THESE VARIBLES WERE 
C USED IN THE ORIGINAL PROGRAM FORMAT WHICH DETERMINED THE OUTPUT 
C MEDIUM FOR THE DATA, i.e., MAGNETIC TAPE C« PUNCH CARDS. THE 
C MEANS FOR THIS NO LONGER EXISTS, HOWEVER PORTIONS OF THE PROGRAM 
C STILL REFER TO THESE VARIBLES IN CaiDER TO EXECUTE BUT EFFECT THE 
C OUTPUT IN A BENIGN MANNER 
C 
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INDCAL=0 

INDTAP=0 

INDCRIM) 


C FMT = M2 

C INDSR=2 
C INDYTH=1 
C INDXTE=1 
C INDOUT=2 
C GAMMA=1.4 
C SMT = 2.0 
C XEXXT = 25. 
C YTHEX = 2.8 
C RCT = 20. 

C DELMUL = .5 


read(*,*) INDSR 
read(*,*) INDYTH 
read{*,*) INDXTE 
read(* *) INDOUT 
read(*,*) GAMMA 
read(*,*) SMT 
read(*,*) XEXXT 
read(*,*) YTHEX 
•read(*,*) RCT 
read(*,*) DELMUL 


C WRITE( 16,40) 

C 40 F0RMAT(1X 15X,'U.S. NAVAL (»DANCE LABCKATORY, WHITE OAK, MARYLAND' 
C l,//,5X'COMPUTER PROGRAM FOR THE DESIGN OF TWO-DIMENSIONAL' 

C 2'SUPERSONIC NOZZLES'y/,34X,PART r,//, 20 X'THE ISENTR(»>IC' 

C 3'CORE (W TOE NOZZLE',/////) 

C WRITE(16,406)(FMT(I),I=1,10) 

C 406FCaiMAT(20X,10A8////) 

C WRITE(16,41) INDSR,INDYTOIM)XTE,IND0UT,INDCAL,INDTAP,INDCRD, 

C 1GAMMA,SMT,XEXXT,YTHEX,RCT,DELMUL 
C 41FC»MAT( 20X,'INPUTDATA',//,20X,'CARDNO. 1', 

C 1 5X,'INDSR=',I12y,34X'lNDYTO=',I12,/, 

C 734X,'INDXTE =',I12,/,34X,'INDOUT =',I12y,34X,'INDCAL =',112/, 

C 834X,'INDTAP =',I12,/,34X,'INDCRD =',112// 

C 520X,'CARD NO. 2', 5X,'GAMMA ='312.5y,37X'SMT =',E12.5,/,35X, 

C 6'XEXXT =',E12.5,/,35X'YTHEX =',E12.5,/,37X,'RCT =',E12.5,/, 

C 934X,DELMIIL =',E12.5) 

EPSC=0.001 

LCa.ITA=25 

GA=GAMMA+1. 
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GB=GAMMA-1. 

GC=2.*GB 

GD=GA/GC 

GE=GA/GB 

GG=2./GB 

GI=GA/2. 

WU=SQRT(GE) 

TERM=(GA/(2.0+GB*SMT**2))**GD 

ETAW=SMT*TERM 

TANA=1 ./SQRT(SMT**2-1.) 

IF(INDYTH.EQ.l) GO TO 50 
YEXrr=YTHEX/ETAW 
YTH=YTHEX 
GOTO60 
50 YEXrr=YTHEX 
YTH=YTHEX*ETAW 
60 IF(INDXTE.EQ. 1) GO TO 65 
XT=XEXXT 

XEXIT=XT+YEXIT*SQRT(SMT*SMT-1.0) 

GO TO 70 
65 XEXIT=XEXXT 

XT=XEXIT-YEXn'*SQRT(SMT*SMT-1.0) 

7000801=1,600 
XW(I)=0.0 
SMW(I)=1.00000 
YW(I)=ETAW 
80 CONTINUE 
GO TO (100,85,98),INDSR 
85 B=XT/2.0/(SMT-l .0)*SQRT(GA/RCT/YTH)-2.0 
IF(B.GT.-2..AND.B.LT.1.0) GO TO 95 
C WRITE (16,90) B 

C 90 F(miAT(lXy//,19X,’** CUBIC CENTERLINE MACH NO. DISTRIBUnON’/, 

C 123X,'IS NOT APPROPRIATE FOR INPUT GIVEN, B =',E12.6) 

WRITE(*,1200) 

1200 FORMAT(lX,’***CUBIC CENTERLINE MACH NO DISTRIBUTION IS NOT 
1' APPROPRIATE FOR INPUT,/, 1X,'GIVEN’) 

G0T098 

95 CALL REG(XL,SML,XCOR,SMT,YTH,YEXIT,XTJICT,B,LASTN,NEND,GAMMA,XEXIT 
LETAW,DELMUL) 

GOTO no 

98 CALL XP0(XL,SML,XCC«,SMT,YTH,YEXIT,XT,RCT3,LASTN,NEND,GAMMA,XEXIT 
1,ETAW,DELMUL) 

GOTO 110 

100 CALL SHO(XL,SML,XCaR,SMT,YTH,YEXIT,XT,RCT,B,LASTN,NEND,GAMMA,XEXIT 
1,ETAW,DELMUL) 
no ASSIGN 740 TO MU 
KAPPA=2 
NEN=NEND-1 
Y(2,l)=0.0 
THE(2,l)=O.0 
T(2,l)=0.0 
ETA(2,1)=0.0 
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C WRITE(16,111) 

C 111 FORMAT(lXy//,10X,'CHARACTERISTICS MANIPULATION ’ 

C 1 '(* INTERPOLATED WALL VALUES)’,//,5X,’N',4X;K',6X,'X(INCHES)' 

C 2,5X,'Y(INCHES)',7X,'MACH NO.’,5X,'STREAM ANGLE’,/) 

DO 900 N=I,NEN 
N1=N 

IF(LASTN.LE.N) GO TO 370 
SM(2,1)=SML(N) 

X(2,1)=XL(N) 

A(2,1)=1 ./SQRT(SML(N)**2-1.) 

IF(N.GT.l)GOTO470 

KO=l 

GO TO 850 

370 X(2,KAPPA)=XL(N) 
y(2,KAK>A)=(XL(N)-XT)*TANA 
SM(2,KAPPA)=SMT 

a(2,k:appa)=tana 

T(2,KAPPA)=0.0 

THE(2,KAPPA)=0.0 

ETA(2,KAPPA)=ETAW*Y(2,KAPPA) 

470 IF(LASTN.GT.N) GO TO 490 
KAPPA=KAPPA+1 
490 DO 700 K=KAPPA,N 
KO=K 

THEL=THE(1,K-1)-WU*ATAN(1./(WU*A(1,K-1)))+ATAN(1./A(1,K-1)) 

THER=THE(2,K-1)+WU*ATAN(1./(WU*A(2,K-1)))-ATAN(1./A(2,K-1)) 

THE(2,K)=(THEL+THER)/2. 

T(2,K)=SIN(THE(2,K))/COS(THE(2,K)) 

CALL AC(M(A(1,K-1),A(2,K-1),WU,THEL,THER,EPSC,LOLITA, A(2,K)) 
TAB=(T(2,K-1)+T(2,K))/2. 

AAB=(A(2,K-l)+A(2,K))/2. 

TAA=(T(l,K-l)+T(2,K))/2. 

AAA=(A(1,K-1)+A(2,K))/2. 

SM(2,K)=SQRT(A(2,K)**2+l .)/A(2,K) 

SMAB=(SM(2,K-l)+SM(2,K))/2. 

CAT=(TAB-AAB)/(1 .+TAB*AAB) 

DAT=(TAA+AAA)/(1 .-TAA*AAA) 

X(2,K)=(Y(lJfC-l)-Y(2,K-l)+CAT*X(2,K-l)-DAT*X(14C-l))/(CAT-DAT) 

Y(2,K)=Y(2,K-1)+CAT*(X(2,K)-X(2,K-1)) 

CALLATE(GA,GD,SMAB,GB,THE(2,K),ETA(2,K-1),X(2,K),X(2,K-1),Y(2,K), 

1Y(2,K-1),SM(2,K-1),SM(2,K),ETA(2,K)) 

KIP=KJCAH»A+2 

IF (INDOUT.EQ.2) GO TO 650 

XX=X(24C)*YEXIT 

YY=Y( 24 C)*YEXrr 

THD=THE(2JC)*57.3 

C WRITE (16,491) N,K,XX,YY,SM(2,5),THD 
C 491 FC»MAT(1X,2I5,4E15.6) 

650 IF(ETA(2,K).GT.ETAW) GO TO 720 
700 CONTINUE 
GO TO 850 

720 CALL WINTER (ETAW,X(2,K),X(2,K-1),X(2,K-2),ETA(2,K),ETA(2,K-1),ETA 
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1(2,K-2),XW(N),K) 

GOTOMU,(740,760) 

740 ASSIGN 760 TO MU 
NO=Nl 

760 CALL WINTER(ETAW,Y(2,K),Y(2,K-1),Y(2,K-2),ETA(2,K),ETA(2,K-1),ETA( 
12,K-2),YW(N),K) 

CALLWINTER(ETAW,SM(2,K),SM(2,K-1),SM(2,K-2),ETA(2,K),ETA(2,K-1),E 

1TA(2.K-2),SMW(N),K) 

CALL WINTER (ETAW,THE(2,K),THE(2,K-I),THE(2,K-2),ETA(2,K),ETA(2,K- 
11),ETA(2,K-2),THEW(N),K) 

XX=XW(N)*YEXIT 

YY=YW(N)*YEXIT 

THI>=THEW(N)*57.3 

C WRITE (16,492) N,K,XX,YY,SMW(N),THD 
C 492FORMAT(lX,lH*,2I5,4E15.6) 

850 DO 900 IOTA=l,KO 
X(l,IOTA)=X(2,IOTA) 

Y(l,IOTA)=Y(2,IOTA) 

A(l,IOTA)=A(2,IOTA) 

T(l,IOTA)=T(2,IOTA) 

SM(l,IOTA)=SM(2,IOTA) 

THE( 1 ,IOTA)=THE(2,IOTA) 

ETA(l,IOTA)=ETA(2,IOTA) 

900 CONTINUE 
XW(NEND)=XL(NENP) 

YW(NEND)=1. 

SMW(NEND)=SMT 

THEW(NEND)=0.0 

CALL SETXEQ(XW,NO,XL,SML,NEND) 

960 JO=NEND-NO 
DO990 J=UO 
NJ=NOfJ 
SML(J )=SML(NJ) 

SMW(J )=SMW(NJ) 

XL(J )=XL(NJ)*YEXIT 
XW(J )=XW(NJ)*YEXIT 
YW(J )=YW{NJ)*YEXIT 
THEW(J )=THEW(NJ)*57.3 

990 CONTINUE 
XEXIT=XEXIT*YEXIT 
XT=XT*YEXIT 
Jll=JO-l 

D0991 J4=2,J11 

DS=SC^T((XW(J4+1)-XW(J4-1))**2-KYW(J4+1)-YW(J4-1))**2) 

DTOE=THEW(J4+1)-THEW(J4-1) 

IF(DTHE.EQ.0.0) DTHE=l.E-6 
R(J4)=DS/DTHE*57.3 

991 CONTINUE 
R(1)=0.0 
R(JO)=0.0 

C WRrrE( 16,493) 

C 493 FC«MAT(1X,///,30X,'FINAL OUTPUT TO PART I, ISENTRCffIC CC«E CONTOUR 
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n n n n 


C l',//,5X,'r,4X,’X(INCHES)’,6X;Y(INCHES)',5X;CL MACH NO.’,4X, 

C 2'WALLMACHNO.',3X,'WALLANGLE’,2X,'RADOFCURV(IN) ',/) 

C WRITE(16,494)a,XL(I),YW(I),SML(I),SMW(I),THEW(I),R(I),I=l,JO) 

C 494 F(»MAT(1X,I5,6E15.6) 

CONT=0.0 

C WRITE(17,142)(FMT(J),J=1,10) 

C 142 FORMAT(10A8) 

WRITE( 17,140)JO, YTH, YEXIT,XT,XEXIT 

140 FORMAT(I5,4E20.7) 

WRITE(17,141)(XL(J),YW(J),SMW(J),CONT,SML(J),J=l,JO) 

141 FORMAT(5E20.7) 

ENDFILE17 
REWIND 17 

C CLOSE( 16 ) 

CLOSE(17) 

WRITE(* 1100) 

1100 FORMAT(lX,///,'OinPUT ISENTR(M>IC DATA FOR NOZZLE CONTOUR' 
1,' STORED IN FILENAME outptl’ 

2y//,DATA FROM THIS FILE TO BE USED IN THE VISCOUS’ 

C 3,' PROGRAM nbl6.f IS STORED',/,'IN FILENAME outpt2') 
return 
END 


SUBROUTINE REG(XL,SML,XCOR,SMT,YTH,YEXIT,XTJlCT,B,LASTN,NEND,GAMMA 
l,XEXrr,ETAW,DELMUL) 

IMPLICIT DOUBLE PRECISION (A-H,0-Z) 

DIMENSION XL(600),SML(600),XCOR<600) 
SKIFG(X)=SMT-{SMT.I.0)*(1.0-B*X/XT)*(1.0-X/XT)*(1.0-X/XT) 

C WRITE(16,10) SMT,YTH,YEXIT,XEXIT,XT 

C 10 FC«MAT(lX,////,19X,’NOZZLE PARAMETERS (LENGTHS IN INCHES)' 

C 1 ,//,5X,'MACH NO.',5X,'YTH', I0X,'YEXn”,7X,'XEXIT',8X,'Xr 
C 2y,lX,5EI3.5y) 

C WRITE(I6,20) RCT,B 

C 20 FC»MAT(IX,27X,RCr,I0X,'B'y,22X,2EI3.5,///,I0X, 

C I'CENTERLINE MACH NUMBER DISTRIBUTION USING CUBIC EQUATION', 

C 2//,20X,'N’,7X,’X’,15X,'MACHNO.’y) 

XT=XTA^XIT 

XEXIT=XEXIT/YEXIT 

XB=0.0 

DO 5015=1,600 

XB=XB+0.00001 

SMB=SKIFG(XB) 

IF(SMB.GE. 1.0001) GO TO 60 
50 CONTINUE 
60 XL(1)=XB 
SML(1)=SMB 
XCOR(l)=XB*YEXIT 
DELX=0.0001 
DO 881=2,600 
IT=I 
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IF(I.LE.20)GOTO80 

DELX=LOG( 100. *(XL(I-1 )/XEXIT)+1. )/460. ♦XEXIT 
DELX=DELX*DELMUL 
80 XL{I)=XL(I-1)+DELX 
XCOR{I)=XL(I)*YEXIT 
SML(I)=SKIFG{XL(I)) 

IF(XL(I).GE.XT) GO TO 85 
88 CONTINUE 
85 LASTN=rT 
SML(I)=SMT 
XL(I>=XT 

XCOR(I)=XL(I)*YEXIT 
N1=LASTN+1 
DO 90 J=N1,600 
JTM=J 

DELX=LOG(100.*(XL(J-l)/XEXrD+l)/460.*XEXIT 

DELX=DELX*DELMUL 

XL(J)=XL(J-1)+DELX 

XCOR(J)=XL(J)*YEXIT 

SML(J)=SMT 

IF(XL(J). GE. XEXTT) GO TO 95 
90 CONTINUE 
95NEND=JTM 
XL(NEND)=XEXIT 
XCOR(NEND)=XL{NEND)*YEXIT 
SML(NEND)=SMT 

C WRITE{16,100){ICXCC»(K),SML(K)^=1,NEND) 

C 100 FORMAT(16X,I5,E15.6,2X,E15,6) 

RETURN 

END 

SUBROUTINE SH0(XL,SML^CC»CSMT,YTH,YEXIT;CT41CT,B,LASTN,NEND,GAMMA 
l,XEXrr,ETAW,DELMUL) 

IMPLICIT DOUBLE DECISION (A-H,0-Z) 

DIMENSION XL(600),SML(600),XCOR(600) 

SKIFGPC)={(((C6*X+C5)*X+C4)*X+C3)*X+C2)*X+C1 

Cl=1.0 

C2=0.023652 

C3=0.80082 

C4=-0.44309 

C5=0.09893 

C6=-0.78644E-2 

ASSIGN 81 TO NU 

XB=0.0 

DO 5015=1,600 
XB=XB+0.00001 
XC=XB/ETAW 
SMB=SKIFG(XC) 

IF(SMB.GE. 1.0001) GO TO 60 
50 CONTINUE 
60 XL(I)=XB 
SML(1)=SMB 
XCOR(l)=XB*YEXIT 
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XEXIT=3.0 
DELX=0.0001 
DO 88 1=2,600 
17=1 

IF(I.LE.20)GOTO80 

DELX=LOG(100.*(XL(I-l)/XEXn>i-l.)/460.*XEXIT 

DELX=DELX*DELMUL 

80 XL(I)=XL(I-1)+DELX 
GOTONU,(81,83) 

81 XCC=XL(I)/ETAW 
IF(XCC.LE. 1.60174) GO TO 82 
Cl=1.4554 

C2=0.74251 
C3=0.17251 
C4=-0.037244 
C5=0.62572E-2 
C6=.0.34138E-3 
ASSIGN 83 TO NU 
GO TO 83 

82 XCOR(I)=XL(I)*YEXIT 
XC=XL(I)/ETAW 
SML(I)=SKIFG{XC) 

GO TO 86 

83 XCOR(I)=XL(I)*YEXIT 
XC=LOG(XL(i)/ETAW) 

SML(I)=SKIFG(XC) 

86 IF(SML(I).GE.SMT) GO TO 85 
88 CONTINUE 
85 LASTN=IT 
SML(I)=SMT 
XT=XL(I) 

XCOR(I)=XT*YEXIT 

XEXrr=XT+SQRT(SMT**2-l.) 

N1=LASTN+1 
DO 90 J=N1,600 
JTM=J 

DELX=LOG(100.*(XL(J-1)/XEXIT)+1.)/460.*XEXIT 

DELX=DELX*DELMUL 

XL(J)=XL(J-1>+DELX 

XCOR(J)=XL(J)*YEXIT 

SML(J)=SMT 

IF(XL(J). GE. XEXTT) GO TO 95 
90 CONTINUE 
95NEND=jrM 
XL(NEND)=XEXIT 
XCOR(NEND)=XL(NEND)*YEXIT 
SML(NEND)=SMT 

C WRrrE(16,98) SMT,YTH,YEXIT,XCOR(NEND),XCOR(LASTN) 

C 98 FORMAT(lX,////,19X,'NOZZLE PARAMETERS (LENGTHS IN INCHES)' 

C iy/,5X,'MACH NO.',5X,’YTH’,10X,'YEXrr,7X,'XEXrr,8X, 

C 2’XT',/,1X,5E13.5, 

C 3///, 10X,'CENTERLINE MACH NUMBER DISTRIBUTION FCHl A SHC81T NOZZLE’, 
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C 4//,20X,'N’,7X,'X',10X,'MACH NO.’,/) 

C WRITE(I6,100)(K,XCOR(K),SML(K),K=1,NEND) 

C 100 FORMAT(16X,I5,2E15.6) 

RETURN 

END 

SUBROUTINE XPO(XL,SML,XCOR,SMT,YTH,YEXIT,XT,RCT,B,LASTN,NEND,GAMMA 
l,XEXn',ETAW,DELMUL) 

IMPLICIT DOUBLE PRECISION (A-H,0-Z) 

DIMENSION XL(600),SML(600),XCOR(600) 

SKIFG(X)=TM2*( 1 .-(EXP(C2*(1..X/XT)*( 1 .-X/XT))-1 .)7rMl)+l. 
DMDX=0.5*SQRT((GAMMA+1.)/RCT/YTH) 

T=DMDX*XT/(SMT-1.) 

ITER=0 
Gl=0.001 
Tl=2.0 
El=l.-2./T 
G2=T/2.0 
30 EP=EXP(G2) 

T2=2.*G2*EP/(EP-1.) 

E2=l.-T2/T 

IF(ABS(E2).LE.0.0001) GO TO 45 
B1 =(G2-G1)/(E2-E1) 

ITER=ITER+1 
IF{ITER.GT.50) GO TO 35 
G1=G2 
E1=E2 

G2=G1-B1*E1 
IF(G2.EQ.0.00) G2=0.0001 
GO TO 30 

C 35 WRITE(16,40) ITER 

C 40 FORMAT(lX,20X,TrERATION IN SUB XPO EQUALS',15) 

35 return 
45 C2=G2 

C WRITE( 16,47) SMT,YTH,YEXIT,XEXIT,XT 

C 47 FORMAT(lX,////, 19X,'NOZZLE PARAMETERS (LENGTHS IN INCHES)' 

C 1,//,9X,'MACH NO.',7X,'YTH',10X,'YEXrr,7X,XEXrr,8X,'Xr 
C 2,/,5X,5E13.5,/) 

C WRrrE(16,48) RCT,DMDX,C2 

C 48 FORMAT(lX,23X,'RCr,8X,'DMT,8X,’C2’,/,18X,3E13.5,///,7X, 

C I'CENTERLINE MACH NUMBER DISTRIBUTION USING EXPONENTIAL' 

C 2'EQUATION’,//,23X,'N',7X,'X, 10X,'MACH NO.',/) 

TM1=EXP(C2)-1.0 

TM2=SMT.1.0 

XT=XT/YEXIT 

XEXIT=XEXIT/YEXIT 

XB=0.0 

DO 5015=1,600 

XB=XB+0.00001 

SMB=SKIFG(XB) 

IF(SMB.GE.1.0001) GO TO 60 
50 CONTINUE 
60XL(1)=XB 
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SML(1)=SMB 
XCOR(l)=XB*YEXrr 
DELX=0.0001 
DO 881=2,600 
IT=I 

IF{I.LE.20)GOTO80 

DELX=LOG(100*(XL(I-1)/XEXIT)+1.)/460.*XEXIT 
DELX=DELX*DELMUL 
80 XL(I)=XL(I-1>+DELX 
XCOR(I)=XL(I)*YEXIT 
SML(I)=SKIFG(XL(I)) 

IF(XL(I).GE.XT) GO TO 85 
88 CONTINUE 
85 LASTN=IT 
SML(I)=SMT 
XL(I)=XT 

XCOR(I)=XL(I)*YEXIT 
N1=LASTN+1 
DO90 J=N1,600 
JTM=J 

DELX=LOG(100.*(XL(J-l)/XEXn>(-l.)/460*XEXIT 

DELX=DELX*DELMUL 

XL(J)=XL(J-1)+DELX 

XCOR(J)=XL(J)*YEXIT 

SML(;)=SMT 

IF(XL(J). GE. XEXTT) GO TO 95 
90 CONTINUE 
95NENr>=JTM 
XL(NEND)=XEXrT 
XCOR(NEND)=XL(NEND)*YEXIT 
SML(NEND)=SMT 

C WRITE(16,100)(K,XCOR(K),SML(K),K=1,NEND) 

C 100FC»MAT(18X,I5,2E15.6) 

RETURN 

END 

SUBROUTINE ACOM(P,Q,W,STUEPSC,LCft.ITA,AC) 

IMPLICIT DOUBLE PRECISION (A-H,0-Z) 

1005 DIMENSION ANOT(100),AP(100) 

1030 ANOT(l)=(P+Q)/2. 

1040AP(l)=W*ATAN(L/(W*ANOT(l)))-ATAN(L/ANOT(l))+(S-R)/2. 

1050 ANOT(2)=ANOT(l)+.l 

1060 AP{2)=W*ATAN(L/(W*ANOT(2)))-ATAN(L/ANOT(2)>+(S-R)/2. 

1070 DO 1110 KOUNT=3,LOLITA 

1080ANOT(KOUNT)=ANOT(KOUNT-l)-AP(KOUNT-l)*(ANOT(KOUNT-l)-ANOT(KOUNT-2) 

l)/(AP(KOUNT-l)-AP(KOUNT-2)) 

1090AP(KOUNT)=W*ATAN(L/(W*ANOT(KOUNT)))-ATAN(L/ANOT(KOUNT))+(S-R)/2. 

1095 JULES=KOUNT 

1100 IF(ABS{(ANOT(KOUNT)-ANOT(KOUNT-1))/ANC)T(KOUNT))-EPSC)1145,1145,111 
10 

1110 CONTINUE 
1145 AC=ANOT(JULES) 

IF(JULES.LT.LOLITA) GO TO 1150 
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C WRITE (16,1146) 

C 1146 FORMAT(20X,’KOUNT') 

1150 RETURN 
END 

SUBROUTINE WINTER (EXM,R,S,T,XI,XJ,XK,TERP,K) 

IMPLICIT DOUBLE PRECISION (A-H,0-Z) 

DIFF(XI,XJ)=XI-XJ 

DIVAYF(R,S,XI,XJ)=DIFF(R,S)/DIFF(XI,XJ) 

DIVBYF(R,S,T,XI,XJ,XK)=DIVAYF(DIVAYF(R,S,XI,XJ),DIVAYF(S,T,XJ,XK), 

1XI,XK) 

IF(K.EQ.2)GOTO10 

TERP=R+DIFF(EXM,XI)*piVAYF(R,S,XI,XJ)+DIFF(EXM,Xf)*DIVBYF(R,S,T,X 

1LXJ,XK)) 

GO TO 15 

10 TERP={EXM-XJ)*R/(XI-XJ)+(EXM-XI)*S/(XJ-XI) 

15 RETURN 
END 

SUBROUTINE ATE(GA,GD,SMAB,GB,THETA,ETA1,X2,X1,Y2,Y1,SM1,SM23TA2) 

IMPLICIT DOUBLE PRECISION (A-H,0-Z) 

PQF(FM)=FM*(GA/(2.+GB*FM**2))**GD 

X2X1=X2-X1 

Y2Y1=Y2-Y1 

SNA=.5*(L/SM1+1./SM2) 

ETA2=ETAl+.5*(P(y(SMl)+PC^(SM2))*SNA*SC^T(X2Xl*X2Xl+Y2Yl*Y2Yl) 

RETURN 

END 


subroutine vblsub 


* 

♦ 

* 

♦ 

* 

♦ 


Modified by: LT Douglas L. Seivwright 
March 1994 

PROGRAM INPUTS: 


♦ 

* 

♦ 


* 


♦ 


* * 

* * 

* INDMO-BOUNDARY LAYER MODE: L STRICTLY LAMINAR, 2, STRICTLY * 

* TURBULENT, 3. LAM-TRANS-TURB * 

* INDTW-WALL TEMP INDICATION: 1. CONSTANT=TWALL, 2. ADIA WALL TEMP, * 

* 3. TEMPERATURE DISTRIBUTION INPUT BY USER ♦ 

* INDTR-TRANSmON INDICATION(IF INDMO=3): 1. TRANS AT RETHETA VALUE * 

* GIVEN IN TRCON, 2. TRANS ATX GIVEN IN TRCON * 

* INDWC- INDICATE BOUNDARY LAYER CALCULATION: * 

* L CALCULATE CENTERLINE ONLY, 2. CALCULATE WALL ONLY, * 

* 3. CALCULATE BOTH * 

* * 


* * 

* TRCON-TRANSmON CONSTANT EQUAL TO RETHETA (REYNCftDS NUMBER BASED * 

* ON THE MOMENTUM THICKNESS OF THE BOUNDARY LAYER) OR XTRANS * 

* (HORIZONTAL DISTANCE RELATIVE TO THE THROAT) DEPENDING ♦ 


64 


♦ ON INDTR * 

♦ THZERO-THETA (MOMENTUM THICKNESS) AT THROAT IN FEET * 

♦ (USUALLY= l.OE-5) * 

♦ PaSTAGNATION PRESSURE IN LBS/IN2 + 

♦ TO.SUH»LY TEMP IN DEGREES R * 

♦ TWALL-WALL TEMP IN DEGREES R IF INDTW=1 * 

♦ XTEND-EXTENSION LENGTH CF NOZZLE WALL PAST EXIT AS DEFINED * 

♦ BY THE ISENTROPICCORE(INCHES) (ASSUMES UNIFORM DUCT FLOW) * 

♦ DL-INCREMENT IN X FROM ISENTROPIC EXIT TO EXTENSION LENGTH ♦ 

♦ IN (INCHES) * 

♦ B-WIDTH (F NOZZLE ♦ 

♦ * 


♦ * 

♦ GAMMA-RATIO OF SPECIFIC HEATS ♦ . 

♦ OMEGA-EXPONENT IN VISCOSITY-TEMP RELATION (AIR=0.76) * 

♦ WATE-MOLECULAR WT OF GAS (AIR=29) * 

♦ cp-srecmc heat CF gas in BTU/LB-DEG R (A1R=0.24)) or LEAVE ♦ 

♦ BLANK AND LET PROGRAM PICK VALUES ♦ 

♦ PR-KIANDTL NUMBER (AIR=0.72) * 

♦ * 

♦ ♦ 

♦ ** IFINDTW=3; * 

♦ NUM-NUMBER OF WALL TEMP INPUT CARDS (THREE OR MORE POINTS * 

♦ ARE REQUIRED OR PROGRAM WILL TERMINATE DATA OUTPUT PRIOR ♦ 

♦ TO CCMPLETING RUN) ♦ 

♦ XXX-DISTANCE FROM THROAT IN INCHES * 

♦ TWW-WALL TEMPS. (DEGREES R) CC«RESPONDING TO X=XXX * 

♦ * 




C 1 2 3 4 5 6 7 

C23456789012345678901234567890123456789012345678901234567890123456789012 
IMPLICIT DOUBLE PRECISION (A-H, O-Z) 

DIMENSION X(IOOO),YY(IOOO)3ME(1000)HALFA(I6)^(16XXILN(16), 

1TW(1000),S(1000),POVPO(1000)T)MDS(1000),FMT(10),YSAV(1000), 

2DELTAS(I0OO),YS(10OO)4)ELY(I0OO),YYY(10O0),YC2DLY(10OO), 

>blayer(1000),mointh(1000),dispth(1000) 

CHARACTER*8, FMT 
REALB 

C(F4MONCFOV2,CFOV2L,CFOV2T,DELRAT,DELTAT)ELTRET)ELTTH,DHEAT,DTHDS 

l,DUEDSJEN,ENBAR,ENTURB,H,HINC,OLDDTH,REL,RETH,RETHTR,RHOE,THETA, 

2TAUWAL,THBAR,THETA2,TH0VDL,TLTE,ULUE,TRC0N,THZER0P0,T0,TWALL, 

3GAMMA,C«VIEGA,WATE,CP,PR,GMU0,SW,A1,B1,A2,B2,C2,A3,B3,GNUE,TE,TAD, 

4TADTE,TWTE,QUAY,TETO,UE,GMUE,HAT)PDS,DL,XINC,X(1000),YY(1000), 

5EME(1000),HALFA(16),XI(16),XILN(16),TW(1000),S(1000),POVPO(1000), 

6DMDS(IOOO),FMT(10),IT,L,N,LINES,KOUNT,LAP,NN,INDCF,rNDMO,INDMU, 

7INDTW,INDTR,INDWCA4AXJS4IN,INDINP,1ND0UT,ITMES,INDPRGADELIN, 

>THEIN,DELSIN 
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OPEN(U>OT=17,FILE=Wpt2',STATUS='UNKNOWN') 

OreN(lJNIT=26,FM='outpt3\STATUS=TrNKNOWN’) 

open(unit=20,file='visdata',status='unknown') 

HALF A(l) = .01357623 

11 HALF A(2) = .031126762 

12 HALF A(3) = .047579256 

13 HALF A(4) = .062314485 

14 HALF A(5) = .074797995 

15 HALF A(6) = .084578260 

16 HALF A(7) = .091301710 

17 HALF A(8) = .094725305 

18 HALF A(9) = HALFA(8) 

19 HALFA(IO) = HALFA(7) 

20 HALFA(11) = HALFA(6) 

21 HALFA(12) = HALFA(5) 

22 HALFA(13) = HALFA(4) 

23 HALFA(14) = HALFA(3) 

24 HALFA(15) = HALFA(2) 

25 HALFA(16) = HALFA(1) 

26 XI(1) = .005299535 
27X1(2) = .02771249 
28 XI(3) = .0671844 
29X1(4) = 1222978 
30X1(5)= .19106188 

31 XI(6) = .27099161 

32 XI(7) = .35919822 

33 XI(8) = .45249374 

34 XI(9) = .54750626 

35 XI(IO) = .64080178 

36 XI(11) = .72900839 

37 XI(12) = .80893812 

38 XI(13) = .8777022 
39X1(14) = 9328156 

40 XI(15) = .97228751 

41 XI(16) = .99470046 

42 XILN(l) = -5.2401361 

43 XILN(2) = -3.5858719 

44 XILN(3) = -2.7003143 

45 XILN(4) = -2.1012962 

46 XILN(5) = -1.6551579 

47 Xn.N(6) = -1.3056674 

48 XILN(7) =-1.0238809 

49 XILN(8) = -0.79298127 

50 XILN(9) = -0.60238131 

51 Xn.N(10) = -.44503503 

52 XILN(11) =-.31606998 

53 XILN(12) = -.21203278 

54 XILN(13) =-.13044784 

55 XILN(14) = -.069547711 

56 XILN(15) = -.028103680 

57 XILN(16) = -.0053135801 
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non 


INTRODUCTION TO PROGRAM 


LAP = 0.0 

XINC=0.0 

INDCF=1 

INDPRG=2 

INDINP=2 

ITMES=0 

9 ITMES=ITMES+1 

10 CALL RESTOR 
QSUM=0.0 
DHL=0.0 


CALL IN 

IF(LAP.EQ.2)goto699 


CP1=CP 
CALL DATA 
PRSC3l = SQRT(PR) 

PR2MI6 = PR**(.. 16666667) 

PRQBRT = PR**(.33333333) 

GO TO (100,110,100),1NDMO 
100 L=1 
GO TO 130 
110L=5 

130 THETA = THZERO 

417 GMUO=(.01298256/(TOf216.))*SQRT ((TO/672.)**3) 
GM102=(GAMMA-1 .)/2. 
G01MG=GAMMA/(L-GAMMA) 


DO 300 N=MIN,MAX 

TETO=l./(l.+((GAMMA-l.)/2.)*(EME(N)**2)) 

TE=TETO*TO 

IF (CPI.EQ.0.0) CP={0.2405-L186E-05*TE+20.1E-09*TE*TE) 

$ *32.175 

419 AE=SQRT (49764. *GAMMA*TE/WATE) 

UE=EME(N)*AE 

GMUE=2.14E-8*TE**1.5/(TE+180.) 

GMUE=2.27E-08*TE** 1.5/(TE+198.6) 

639 P0VP0(N)=(1.(H<M102*(EME(N)**2))**G01MG 
RHOE=(POVPO(N)*PO*WATE)/(49764.*TE) 

REL=RHOE*UE/GMUE 
IF(L-4)146,147,148 

146 TADTE = 1. + PRSQR*((TO-TE)/TE) 

GO TO 150 

147 TADTE = 1.+HISQR*(L+((PR2MI6-1.)/1600.)*DELTRE)*((TO-TE)/TE) 
GOTO 150 
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148 TADTE = 1. + PRQBRT*((TO-TE)/TE) 

150TAD=TADTE*TE 
GO TO (154,155,160),INDTW 

154 TW(N)=TWALL 
GOTO 160 

155 TW(N)=TAD 
160TWTE=TW(N)/TE 

DUEDS=(AE*(T0-((GAMMA-1.)/2.)*TE*(EME(N)**2))*DMDS(N))/T0 
DPDS=0.0-RHOE*UE*DUEDS 
lF(L-3) 170,180,180 
170 CALL CHLOE 
175 CALL LAM IT E 
GOTO 190 
180 CALL TRATUR 
IF(L.GE.4)GOTO190 
L=4 

GO TO 300 

190DTHDS=CFOV2-THETA*(PMDS(N)*(H+2.-EME(N)**2)*TETO)/EME(N)) 

1T=IT+1 

IF(IT.GT. 100) THEN 
WRITE(M91) 

191 FORMAT! 1X,'PR0GRAM DID NOT COMPLETE RUN; PROGRAM REQUIRES’, 

1 THREE OR MC«E TEMPERATURES FOR THE DISTRIBUTION IN ORDER', 

2 TO COMPLETE RUN') 

STOP 

END IF 

IF (N.LE.MIN) GO TO 200 

225THETA=THETA2+((OLDDTH+DTHDS)*(S(N)-S(N-l)))/2. 
THTCOR=THBAR-THETA 
IF(ABS (THTCOR/THETA)-.005)200,200,226 
226 THBAR=THETA 
227IF(L-3)175,180,180 
200 IF(L-3)240,250,250 

240 HA= (CP/(PR**.6))*RHOE*UE*CFOV2*(S(^T (((TE+216.)/(TW(N)+216.))* 

ISQRT (TWTE)))/(1.-A1*(ABS {ENBAR))**B1) 

GO TO 260 

250 HA=(0.27477951*POVPO(N)*PO*EME(N)/S(^T (TE))*CFOV2 
260 DHEAT=HA*(TAD-TW(N)) 

IF(N.EQ.MIN) GO TO 265 
265 TAUWAL=CFOV2*RHOE*(UE**2) 

DELTA=H*THETA 

DELTAS(N)=DELTA 

CALL OUT(DELIN,THEIN,DELSIN) 

bktyer(N) = DELIN 

dispth(N) = DELSIN 

IF(N.EQ.1)G0T0288 

QSUM=QSUM+(DHE AT+DHL)/2. *(S(N)-S(N-1)) 

288 DHL=I»IEAT 
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WRITE(26,289) QSUM 

289 FORMAT(15X,E15.6) 
IF(IM)MO.LE.2)GO TO 1642 

290 CALL IPSO 

1642 OLDDTH=DTHDS 

1643 THBAR=THETA 

1644 THETA2=THETA 
IF(L.EQ.3)GOTO180 

300 CONTINUE 


N=MAX 

IF(LAP.EQ.l)GOTO390 
IF(LAP.EQ.2)GOTO410 
390 WRITE(26,400) 

400 FORMAT(lX,19Xy///,55X,’* WALL RESULTS *7/,9X,'N’,8X, 
1'X(INCHES)',6X;DELSTAR(INCHES)’,3X,'YC0RE+DELSTAR’,9X, 
2'MWALLM2X,T)ELTAY’,9X,YCORE+DELTAY'y/) 

425 DO 42617=MIN,MAX 
YSAV(I7)=0.0 

426 CONTINUE 
GO TO 430 

410 WRITE(26,420) 

420 FC»MAT(lX,19Xy///,60X,’* CENTERLINE RESULTS ♦7/,9X,'N’,8X, 
l'X(INCHES)’,6X,'DELSTAR(INCHES)’,4X,'0.0+DELSTAR', 1IX, 

2'M(CL)', 1 lX,'DELTAr, 12X,'0.0+DELTAYy/) 

430 DO 450 IA=MIN,MAX 
X(IA)=X(IA)*12. 

YYY(IA)=YY(IA)*12. 

YY(IA)=(YY(IA)+DELTAS(IA))*12. 

DELTAS(IA)=DELTAS(IA)* 12. 

DELY(IA)={2.*YYy(IA)*DELTAS(IA)+(B-2.*DELTAS(IA))*DELTAS(IA))/B 

YYY(IA)=YYY(IA)+DELY(IA) 

YC2DLY(1A)=YSAV(IA)+2*DELY(IA) 

YSAV(IA)=YSAV(IA)+YY(IA) 

450 CONTINUE 

WRITE(26,440)(IA,X(IA)T)ELTAS(IA),YY(IA),EME(IA)T)ELY(IA), 

lYYYaA),IA=MIN,MAX) 

440 FORMAT(5X,I5,6E18.6) 

C OuQiiit to’visdata'; 

C 1. Point 
C 2.x 

C 3. Wall Mach# 

C 4. Displacement Thickness (sidewall included) 

C 5. Y 

C 6. boundaiy layer thidcness 
C 7. dispacement thickness (no sidewall) 

C 8. static to stagnation pressure ratio 
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WRITE(20,441)(IAA,X(IAA),EME(IAA),DELY(IAA),YYY(IAA), 

>blayer(IAA),dispth(IAA),POVPO(IAA),IAA=MIN,MAX) 

441 FORMATa5,7E18.6) 

C write the last Y value to the screen for iteration on exit dimension 
write(*,*) 'Exit Half Height: ',YYY(MAX) 


1F(INDWC.EQ.3. AND.LAP.EQ. 1) GO TO 10 
1F(INDWC.NE.3) GO TO 600 
490 WRrrE(26,500) 

500 FC81MAT(1X,19X,////,45X,'* WALL AND CENTERLINE RESULTS COMBINED 
l//,39X,'N’,9X,’X(INCHES)',8X,'YCORE+(2)DELSTAR',4X,'YCORE+(2)', 
2DELTAY’y/) 

WRITE(26,510)(I6^(I6),YSAV(I6),YC2DLY(I6),I6=MIN>IAX) 

510FORMAT{35X,I5,5X,E15.6,5X,E15.6,5X,E15.6) 

600 IF(XINC.EQ.0.0) GO TO 9 
WRITE(26,630)(FMT(I),I=1,10) 

630 FORMAT(lX,10A8y/,30X,’CONTOUR FOR FLAT PLATE',//,T25,'N’, 
1T42,'X,T62,'Y',//) 

S(1)=0.0 
DO 599 1=2,500 
MINC=I-1 
S(I)=S(I-1)+XINC 
IF(S(I).GT.X(MAX)) GO TO 489 
599 CONTINUE 
489 MINX=MIN+1 
DO620I=MIN,MAX 
YS(I)=YSAV(I) 

IF(INDWC.NE.3)YS(I)=YY(I) 

620 CONTINUE 

CALL SETXEQ(S,MINX,X,YS,MINC) 

WRITE(26,610XLSa),YS(I),I=2,MINC) 

610 FORMAT(20X,I5,2F20.4) 

WR1TE(26,631XFMT(I),I=1,10) 

631 FORMAT{1X,10A8,//,30X,'CONTOUR FOR TAPERED PLATE',//,T25,'N', 
1T42,'X',T62,'Y’,//) 

D0615I=2,MINC 

YS(I)=YS(I)+0.021+3.5777E-03*S(I) 

615 CONTINUE 

WRrrE(26,610XLS(I),YS(I)4=2>!INC) 

GO TO 9 
699 return 
END 


C 

C END MAIN PROGRAM 
C 


SUBROUTINE RESTOR 
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IMPLICIT DOUBLE PRECISION (A-H, 0-Z) 

CHARACTER*8T=MT 

DIMENSION X(1000),YY(1000),EME(1000),HALFA(I6),XI(16),XILN(I6), 

ITW(1000),S( 1000),POVPO( 1000),DMDS{ 1000),FMT( 10), 

2DELY(1000),YYY(1000) 

COMMON CFOV2,CFOV2L,CFOV2T,DELRAT,DELTA,DELTRE,DELTIH,DHEAT,DTHDS 
l,DUEDS,EN,ENBAR,ENTURB,H,HINC,OLDDTH,REL,RETH,RETHTR,RHOE,THETA, 
2TAUWAL,THBAR,THETA2,THOVDL,TLTE,ULUE,TRCON,THZERO,PO,TO,TWALL, 
3GAMMA,OMEGA,WATE,CP,PR,GMUO,SW,Al,Bl,A2,B2,C2,A3,B3,GNUE,TE,TAD, 
4TADTE,TWTE,QUAY,TETO,UE,GMUE,HA,DPDS,DL,XINC,X(1000),YY(1000), 
5EME(1000),HALFA(16),XI(16),XILN(16),TW(1000),S(1000),POVPO(1000), 
6DMDS(1000),FMT(10),ITT.,N,LINES,KOUNT,LAP,NN,INDCF,INDMO,INDMU, 
7INDTW,INDTR,INDWC,MAX,MIN,INDINP,INDOUT,ITMES,INDPRG 

1910 CFOV2 =0 

1911 CFOV2L=0. 

1912 CFOV2T=0. 

1913 DELRAT=0. 

1914 DELTA =0. 

1915 DELTRE=0. 

1916 DELTTH=0. 

1917DHEAT=0. 

1918 DTHDS =0. 

1919DUEDS =0. 

1920 EN =0. 

1921ENBAR=0. 

1922 ENTURB=0. 

1923 H =0. 

1924 HINC =0. 

1925 OLDDTH=0. 

1927 QUAY =0. 

1928 REL =0. 

1929 RETH =0. 

1930 RETHTR=0. 

1931 RHOE =0. 

1932 TAUWAL=0. 

1933THBAR=0. 

1934 THETA2=0. 

1935 THOVDL=0. 

1936 TLTE =0. 

1937 ULUE =1.0E-4 

1938 IT =0 

1939 L =0 

1945 N =0 
MIN=1 

60D061IA=1,1000 
61 YY(IA)=0. 

1946 RETURN 
END 
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SUBROUTINE IN 

C SUBROUTINE IN READS INPUT FROM char6 AND KEYBOARD INPUT 
IMPLICIT DOUBLE PRECISION (A-H, O-Z) 

INTEGER COUNT,COUNTl,ERROR,INVALD 

CHARACTER*8, FMT 

REALB 

CHARACTER*l,INRSP,INCON,INOUT,INANS,INYN,INDIR 

CHARACTER*2,INCHG 

DIMENSION XXX(1(K)),TWW(100),YYS(600),EMES(600),YS(600),EMS(600), 

1X(1000),YY(1000),EME(1000),HALFA(16),XI(16),XILN(16),TW(1000), 

2S(1000),POVPO(1000),DMDS(1000),FMT(10),DELY(1000),YYY(1000), 

>cnd(10) 

COMMON CFOV2,CFOV2L,CFOV2T,DELRAT,DELTA,DELTREJDELTra,DHEAT,DTHDS 

LDUEDS,EN,ENBAR,ENTURB,H,HINC,0LDDTH,REL,RETH,RETHTR,RH0E,THETA, 

2TAUWAL,THBAR,THETA2,THOVDL,TLTE,ULUE,TRCON,THZERO,PO,TO,TWALL, 

3GAMMA,0MEGA,WATE,CP,PR,GMU0,SW,A1,BLA2,B2,C2,A3,B3,GNUE,TE,TAD, 

4TADTE,TWTE,QUAY,TETO,UE,GMUETLM)PDSJ)L,XINC,X(1000),YY(1000), 

5EME(I000),HALFA(16),XI(16),XILN(16),TW(1000),S(I000),POVPO(I000), 

6DMDS(1()00),FMT(10),IT,L,N,LINES,KOUNTXAP,NN,INDCF,INDMO,INDMU, 

7INDTW,INDTR,INDWC,MAX,Mm,INDINP,INDOUT,ITMES,INDPRG,B 


9LAP = LAPH-1 


IF(LAP.EQ.2)goto850 

IF (TIMES .EQ. 1) GO TO 14 
GO TO 71 
C 

C INPUTS FROM ISENTROPIC CORE DATA GENERATED BY PROGRAM chart 
C 

14 rrMES=2 

C READ(17,15)(FMT(I),I=1,10) 

C 15 FC»IMAT(10A8) 

READ(17,20) MAX,YTH,YEXIT,XT,XEXIT 
20 FC«MAT(I5,4E20.7) 

READ(17.25)(X(I),YS(I),EMS(I),YYS(I),EMES(I),I=LMAX) 

25 FORMAT(5E20.7) 

71 IF (INDWC EQ. 3) THEN 
C G0T029 

END IF 

CRead from iiqiut file (first 10 variables are dummies) 

C do 90 iii = 1, 10 
C write(*,*) cnd(iii) 

C 90 continue 

read(*,*) INDMO 
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read(*,*) INDTW 
read(*,*) INDTR 
read(*,*) INDWC 
read(*,*) TRCON 
reacK*,*) THZERO 
read(*,*) PO 
reatK*,*) TO 
read(*,*) TWALL 
read(*,*) XTEND 
read(*,*) DL 
read(**)B 
read(*,*) GAMMA 
read(*,*) OMEGA 
read(*,*) WATE 
reatK*,*) CP 
read(*,*) PR 


c INDWC = 2 
c INDMO = 2 
c INDTW= 1 
c INDTR = 1 


IF (ENDWC EQ. 3) THEN 
GO TO 224 
END IF 
224 COUNT=0 

IF (INDMO .EQ. '3') THEN 
ERRC«=0 

IF (INDTR .EQ. T) THEN 
231 WRITE(*,235) 

235 FORMAT!lXy////,'INPirr REYNOLDS NUMBER FOR TRANSITION', 

1 /,5X,'(*****REYNOLDS NUMBER BASED ON MOMENTUM THICKNESS’ 

2 'OT BOUNDARY LAYER*****)*) 

c READ(*,240,IOSTAT=ERROR) TRCON 

c 240 FCaiMAT(EI0.3) 

IF (ERROR .GT. 0) THEN 
GO TO 231 
END IF 

ELSE IF (INDTR EQ. '2*) THEN 
241 WRITE(*,245) 

245 FC»MAT(1X,//,'INPUT TRANSITION DISTANCE FRCM THE' 

1 'THROAT IN FEET) 

c READ(* 250,IOSTAT=ERROR) TRCON 

c 250 FORMAT(E10.3) 

IF (ERROR .GT. 0) THEN 
GO TO 241 
END IF 
END IF 
END IF 
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c THZERO=.00001 
c PO=115. 
c TO = 520. 
c TWALL = 520. 

c XTEND = 20. 
c DL = .0625 
c B = 3.2 
c GAMMA =1.4 
c OMEGA = 0.76 
c WATE = 28.97 
c CP = 0.24 
c PR = 0.72 

IF(XTEND.LE.X(MAX)) GO TO 640 

006451=1,600 

NT=I+MAX 

IF(NT.EQ.600) GO TO 650 

X(NT)=X(NT-1)+DL 

YS(NT)=YS(MAX) 

EMS(NT)=EMS(MAX) 

YYS(NT)=YYS(MAX) 

EMES(NT)=EMES(MAX) 

IF(X(NT).GE.XTEND) GO TO 650 

645 CONTINUE 

650 MAX=NT 

640 GO TO (710,710,655), INDTW 
ERROR=0 

655 WRITE(*,660) 

660 F(miAT(lX,///,'INDICATE THE NUMBER OF TEMPERATURE POINTS TO BE', 
r ENTERED’,/,'THREE OR MORE POINTS ARE REQUIRED OR PROGRAM WILL', 
2' TERMINATE THE DATA OUTPUT PRIC« TO COMPLETION^ 
READ(*,665,IOSTAT=ERROR) NUM 

665 FORMAT(I5) 

IF (ERROR .EQ. 0) THEN 
GO TO 655 
END IF 

DO670I4=l,NUM 

ERROR^K) 

666 WRITEC»,675) INPUT THE -X" LOCATION FOR POINT NUMBER ',14, 
('RELATIVE TO THE THROAT IN INCHES' 

675 FaRMAT(lXy/,A40,I5y,A32) 

READ(*,680,IOSTAT=ERROR)XXX(I4) 

680F(»MAT(F10.4) 

IF (ERROR .EQ.O) THEN 
GO TO 666 
END IF 
ERROR=0 

681 WRrrE(*,685) 'INPUT TEMPERATURE IN DEGREES R FOR POINT NUMBER', 
114 

685 F(miAT(lX,//,A47,I5) 

READ(*,690,IOSTAT=ERROR) TWW(I4) 

690 FC«MAT(F10.4) 
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IF (ERROR EQ. 0) THEN 
GO TO 681 
END IF 

670 CONTINUE 
K=1 

D0695 J=1>IAX 

700 IF(X(J).LT.XXX(K+1)) GO TO 705 
K=K+1 
GO TO 700 

705 TW(J)=TWW(K)+ (X(J)-XXX(K))/(XXX(K+1)-XXX(K))*(TWW(K+1)-TWW(K)) 
695 CONTINUE 

710 IF(INDWC.EQ.l) GO TO 715 
IF(LAP.EQ.1)G0T0 725 
715 LAP=2 
DO 7201=1,MAX 
EME(I)=EMES(I) 

YY(I)=YYS(I) 

720 CONTINUE 
GO TO 735 
725 LAP=1 
DO 73011=1,MAX 
EMEai)=EMS(Il) 

YY(I1)=YS(I1) 

730 CONTINUE 

735 WRITE(26,740)(FMTa),I=l,10) 

740 FORMAT(1X,20X,10A8,////) 

WRnE(26,745)INDINP,INDI«G,lNDMO,INDTW,INDTR,INDWC,INDCF,INDOUT, 

lTRCON,THZERO,PO,TO,TWALL,XTEND,DL,GAMMA,OMEGA, 

2WATE,CP,PR,XINC 

745 FC»MAT(1X ,20Xy///,30X,’**** INPUT DATA 
I'INDINP =’,I5,/,32X,’INDPRG =’,15,//, 

115X,'CARD r,12X,’INDMO=’,I5, 

2/,33X,'INDTW =',I5,/,33X,’INDTR =’,I5,/,33X,’INDWC =',I5,/, 

233X,'INDCF =',I5,/,32X,'INDOUT =*,15//, 

315X,’CARD 2’,12X,'TRCON =’,E15.6,/,32X,'THZERO =',E15.6, 

4/,36X,'PO ='315.6y,36X,TO =’JE15.6y,33X,'TWALL =',E15.6, 

6/,33X,’XTEND =',E15.6,/,36X,'DL =',E15.6, 

8//,15X,’CARD 3',12X,'GAMMA =’315.6y,33X, 

5'OMEGA =',E15.6,/,34X,'WATE =',E15.6,/,36X,'CP =',E15.6, 

7/,36X,'PR =',E15.6y,34X,'XINC =’315.6) 

PO=PO*144. 

IF (INDTW3Q.3) GO TO 750 
GO TO 755 

750 WRITE(26,760) NUM 

760 FORMAT(lX,/,15X,’CARD 4',14X,’NUM =’,I5) 

D0765J1=1,NUM 

NUMB=Jl+4 

WRITE (26,770)NUMB,XXX(J1),TWW(J1) 

770 FORMAT(lXy,15X,’CARD’,I3,13X,’XXX =’,E15.6,/,35X,’TWW =',E15.6) 

765 CONTINUE 
755 IF(LAP.EQ.2) GO TO 775 
WRITE(26,780) 
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780 FORMAT(1X,20X,////,52X,'* WALL DATA *’,//, 
136X,'X(IN)’, 16X,'Y(IN)', lOXIVI',//) 

GO TO 785 
775 WRITE(26,790) 

790 FORMAT(1X,20X,////,50X,'* CENTERLINE DATA ♦',//, 
136X,'X(IN)', 16X,'Y(IN)', 16X,’M',//) 

785 WRITE(26,795)(X(L),YY(L),EME(L)J.=1,MAX) 

795 FORMAT(25X,3E20.6) 

DO 800 I1=LMAX 
X(I1)=X(I1)/12.0 
YY(I1)=YY(I1)/12.0 
800 CONTINUE 
850 RETURN 
END 


C SUBROUTINE DATA COMPUTES DM/DS 
SUBROUTINE DATA 

IMPLICIT DOUBLE DECISION (A-H, O-Z) 

CHARACTER*8, FMT 

DIMENSION X(1000),YY(1000)3ME(I000),HALFA(16)^(16),XILN(I6), 
ITW(1000),S(1000),POVPO(1000),DMDS(1000),FMT(10), 

2DELY(1000),YYY(1000) 

COMMON CFOV2,CFOV2L,CFOV2TT)ELRAT,DELTA,DELTRE,DELTntDHEATT)THDS 

LDUEDS,EN,ENBAR,ENTURB,aHINC,OLDDTH,REL,RETH,RETHTR,RHOE,THETA, 

2TAUWAL,THBAR,THETA2,THOVDL,TLTE,ULUE,TRCON,THZERO,PO,TO,TWALL, 

3GAMMA,0MEGA,WATE,CP,PR,GMU0,SW,A1,BLA2,B2,C2,A3,B3,GNUE,TE,TAD, 

4TAiyrE,TWTE,QUAY,TETO,UE,GMUETIA,DPDST>L,XINC,X(1000),YY(1000), 

5EME(1000),HALFA(16),XI(16),XILN(16),TW(1000),S(1000),POVPO(1000), 

6DMDS{1000),FMT(10),ITT^J^a,INES4COUNT,LAP,NN,INDCF,INDMO,INDMU, 

7INDTW,INDTR,INDWC,MAX,MIN,INDINP,IND0UT,ITMES,INDPRG 

IF(LAP.EQ.2)G0T015 

S(1)=X(1) 

IK) 10 I=2JVIAX 

S(I)=S(I-l)+SQRT((X(I)-X(I-l))**2+(YY(I)-YYa-l))**2) 

10 CONTINUE 
GOT021 
15DO20I=13VIAX 
S(I)=X(I) 

20 CONTINUE 

21 DO 101 f=lJMAX 

50 FORMAT(20X,I5,3E15.6) 

IF(J.EQ.l)GOT091 
IF(J.GE.MAX)G0T0 92 
90DMDS(J)=(EME(J+1)-EME(J-1))/(S(J+1)-S(J-1)) 

GO TO 100 

91 DMDS(J)=(EME(J+1)-EME(J))/(S(J+1)-S(J)) 

GO TO 100 

92DMDS(J)=(EME(J)'EME(J-1))/(S(J)-S(J-1)) 
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100 IF(DMDS(J).LT.0.0) DMDS(J)=0.0 

101 CONTINUE 
RETURN 
END 

SUBROUTINE CHLOE 

IMPLICIT DOUBLE PRECISION (A-H, O-Z) 

CHARACTER*8, FMT 

DIMENSION X(1000),YY(I000),EME(1000),HALFA(16),XI(16),X1LN(16), 

1TW( 1000),S( 1000),POVPO( IO0O),DMDS(10OO),FMT( 10), 

2DELY(1000),YYY(1000) 

COMMON CFOV2,CFOV2L,CFOV2T,DELRAT,DELTA4)ELTREJDELTTH,DHEAT,DTHDS 

l,DUEDS,EN,ENBAR,ENTURB,H,HINC,OLDDTH,REL,RETH,RETHTR,RHOE,THETA, 

2TAUWAL,THBAR,THETA2,THOVDL,TLTE,ULUE,TRCON,THZERO,PO,TO,TWALL, 

3GAMMA,OMEGA,WATE,CP,PR,GMUO,SW,Al,Bl,A2,B2,C2,A3,B3,GNUE,TE,TAD, 

4TADTE,TWTE,QUAY,TETO,UE,GMUE,HAT>PDS,DL,XINC,X(1000),YY(1000), 

5EME(1000),HALFA(16),XI(16),XILN(16),TW(1000),S(1000),POVPO(1000), 

6DMDS(1000),FMT(10),ITT.,N,LINES,KOUNT,LAP,NN,INDCF,INDMO,INDMU, 

7INDTW,INDTR,INDWC,MAX,MIN,INDINP,INDOUT,ITMES,INDPRG 

1110 SW=TW(N)/TO-l. 

nil A1=50.71*((ABS (SW))**0.182)-51.8 

1112 B1=1.51-0.722*((ABS (SW))**0.625) 

1113 A2={(7.776*SW+16.125)*SW+7.151)*SW-2.363 

1114 B2=((0.328*SW-K).0.34)*SW-0.174)*SW-K).73 

1115 C2=2.6*(SW+1.0) 

1116 A3=1.28-1.106*((ABS (SW))**0.964) 

1117 B3=0.903-0.088*((ABS (SW))**4.533) 

1118 GNUE=GMUE/RHOE 

1119 RETURN 
END 

SUBROUTINE LAM IT E 

IMPLICIT DOUBLE PRECISION (A-H, O-Z) 

CHARACTER*8, FMT 

DIMENSION X(1000),YY{1000),EME(1000)TIALFA(16),XI(16),XILN(16), 

1TW( 1000),S( 1000),POVPO(1000),DMDS(1000),FMT( 10), 

2DELY(1000),YYY(1000) 

COMMON CFOV2,CFOV2L,CFOV2T,DELRAT,DELTAJDELTRET>ELTrH,DHEAT,DTHDS 

l,DUEDS,EN,ENBAR,ENTURB,H,HINC,OLDDTH,REL,RETH,RETHTR,RHOE,THETA, 

2TAUWAL,THBAR,THETA2,THOVDL,TLTE,ULUE,TRCON,THZERO,PO,TO,TWALL, 

3GAMMA,(M^GA,WATE,CP,PR,GMU0,SW,A1,B1,A2,B2,C2,A3,B3,GNUE,TE,TAD, 

4TADTE,TWTE,QUAY,TETO,UE,GMUE,HAJ)PDS,DL,XINC,X(1000),YY(1000), 

5EME(1000)3ALFA(16),XI(16),XE.N(16),TW(1000),S(1000),POVPO(1000), 

6DMDS{1()00)34T(10),ITJL,NXINES,KOUNT,LAP,NN,INDCF,INDMO,INDMU, 

7INDTW,INDTR,INDWC,MAX,MIN,INDINP,INDOUT,ITMES,INDPRG 

1210 ENBAR=((THETA**2)*DUEDS)/(GNUE*TETO) 

1211 H1NC=A2*(ENBAR**B2)+C2 

1212 H=HINC/TETOf(TO-TE)/TE 
EN=ENBAR 

1213 EL=A3*(ENBAR**B3)+0.22 
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1214 RETH=REL*THETA 

1215 CF0V2=EL/RETH 
CFOV2L=CFOV2 
DDOT=0. 

IF (ENBAR+.3) 10,15,15 
10 D5=-.3 

DDOTNI>=-28.613546-((14.046635*SW+62.021031)*SW 

$+75.901060)+SW 

DDOT=DDOTND*(ENBAR+.3) 

GO TO 16 
15 D5=ENBAR 

16DOT=7.9160948+(((30.38170*D5+59.418345*SW+82.319725)*D5+ 

l(52.310133*SW+112.21677)*SW+65.130652)*D5+((-14.046635*SW 

2-30.634951)*SW-24.61395)*SW-8.2910568)*D5-K(( 

3..34832207*SW-0.99506674)*SW-.94367191)*SW+2.254166)*SW 

DOT=DOT+DDar 

THOVDL=l./(DOT+(TOa^-l.)*(HINC+l.)) 

DELRAT=H*THOVDL 

1216 RETURN 
END 

SUBROUTINE TRATUR 

IMPLICIT DOUBLE PRECISION (A-H, O-Z) 

CHARACTER*8, FMT 

DIMENSION X(1000),YY(I000),EME(1000),HALFA(16),XI(16),XILN{16), 
lTW(1000),S(1000),POVPO(I000),DMDS(1000),FMT(10), 

2DELY(1000),YYY( 1000) 

COMMON CFOV2,CFOV2L,CFOV2T,DELRAT,DELTA,DELTRE,DELTTH,DHEATT)THDS 

l,DUEDS,EN,ENBAR,ENTURB,H,HINC,OLDDTH,REL,RETH,RETHTR,RHOE,THETA 

2TAUWAL,THBAR,THETA2,THOVDL,TLTE,ULUE,TRCON,THZERO,PO,TO,TWALL, 

3GAMMAOMEGAWATE,CP,PR,GMUO,SW,Al,Bl,A2,B2,C2,A3,B3,GNUE,TE,TAD, 

4TAiyrE,TWTE,QUAY,TETO,UE,GMUE,HADPDS4>L,XINC,X{1000),YY(1000), 

5EME(1000)TIALFA(16),XI(16),XILN(16),TW(1000),S(1000),POVPO(1000), 

6DMDS(1000),FMr(10),IT,L,N,LINES,KOUNT,LAP,NN,INDCF,INDMO,INDMU, 

7INDTW,INDTR,INDWC,MAX,MIN,INDINP,IND0UT,ITMES,INDPRG 

1310 RETH=REL*THETA 
G0T0(1311,311),INDCF 

311 ENTURB=0.85*LOG(RETH)-1.29 
GOTO 1312 

1311 ENTURB=.89030368*LOG(RETH)-1.65 

1312 IF(L-4) 1315,1315,1313 

1313 EN=ENTURB 

1314 GOTO 1317 

1315 DELTRE=RETH-RETirrR 

1316EN=((5.25E-3H1.9E-6)*DELTRE)*DELTRE+L25 

1317 A=1.-TADTE 

1318 B=TADTE-TWTE 
1319POWR=EN 

1320 DO 13311=1,2 

1321 SUM=0. 

1322 DO 13241=1,16 
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1323 GIZMOHALFA(I)*(EXP (XILN(I)*POWR))/((A*XI(I)+B)*XI(I)+TWTE) 

1324 SUM=SUM+GIZMO 

1325 IF(J-1) 1328,1328,1331 

1328 GADGET=EN*SUM 

1329 DELRAT=1.-GADGET 

1330 POWR=EN+l. 

1331 CONTINUE 

1332 THOVDL=GADGET-EN*SUM 

1333 H=DELRAT/THOVDL 

1334 DO 13361=1,2 

1335TLTE=1.+.448*(GAMMA-1.)*(EME(N)**2)*(1.-(ULUE**2))+(TWTE-TADTE)* 
1 (l.-ULUE) 

1336ULUE={20*EN*THOVDL*(TLTE**(1.+OMEGA))/RETH)**(1./(EN+1.)) 

GO TO (1337,337),INDCF 

337 CF0V2= 002205*TETO**0.5*(TWTE/TADTE)**0.345/RETH**0. 1 
GOTO 1338 

1337CFOV2=((20.*ENTURB)**((1.-ENTURB)/(1.+ENTURB)))*((THOVDL/RETH) 

1 **(2./(ENTURB+ 1 .)))*(TLTE**(( 1 .+2.*0MEGA-ENTURB)/(ENTURB+1 .))) 
1338IF(L-4) 1339,1342,1343 

1339 QUAY=(CF0V2-CF0V2L)*(RETH**2) 

1340 GO TO 1343 

1342 CFOV2=CFOV2-QUAY/(RETH**2) 

1343 RETURN 
END 


SUBROUTINE OUT(DELIN,THEINJDELSIN) 

IMPLICIT DOUBLE PRECISION (A-H, O-Z) 

CHARACTER*8, FMT 

DIMENSION X(IOOO),YY(1000),EME(1000)41ALFA(16),XI(16),XILN(16), 
1TW(1000),S(1000),POVPO(1000),DMDS(1000),FMT(10), 

2DELY(1000),YYY(1000) 

COMMON CFOV2,CFOV2L,CFOV2T4>ELRAT,DELTA,DELTRE,DELTnLDHEAT4>rHDS 

l,DUEDS,EN,ENBAR,ENTURB,H,HINC,OLDDTH,REL,RETH,RETHTR,RHOE,THETA, 

2TAUWAL,THBAR,THETA2,TH0VDL,TLTE,ULUE,TRC0N,THZER04»0,T0,TWALL, 

3GAMMA,0MEGA,WATE,CP,PR,GMU0,SW,A1,B1,A2,B2,C2,A3,B3,GNUE,TE,TAD, 

4TADTE,TWTE,QUAY,TETO,UE,GMUE,HAT)PDSJ>L,XE4C,X(1000),YY(1000), 

5EME(1000),HALFA(16),XI(16),XILN(16),TW(1000),S(1000),POVPO(1000), 

6DMDS(1000)34T(10),ITT.,Na.INES4COUNT,LAP,NN,INDCF,INDMO,INDMU, 

7INDTW,INDTR,INDWC,MAX,MIN,INDINP,INDOUT,rrMES,INDPRG 


XC(m=X(N)*12. 

SCOR=S(N)*12. 

YCOR=YY(N)*12. 

BCLAUS=THETA/TAUWAL*DPDS 

THEIN=THETA*12. 

DELSIN=DELTA*12. 

DELIN=THEIN/THOVDL 

TWTAD=TW(N)/TAD 

TWTO=TW(N)/TO 
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TADTOTAD/TO 

CF=CFOV2*2. 

IF(N.GT.MIN) GOTO 12 
WRITE(26,4) 

4 F0RMAT(1X,19X,////,56X,'*** OUTPUT CODE ***'Jlf) 

WRITE(26,5) 

5 FORMAT(20X,'X(IN)M0X,'S(IN)M0X,'Y(IN)M2X,'M', lOX, 

1 'REL( 1/FT)’,8X,’RETH', 1 lX,'PE/PO’,///) 

WRITE(26,6) 

6FORMAT(17X,TJE(FT/SEC)',4X,'MUE(PSEC/FT2)',lX,'RHC8E(PSEC2/FT4)’, 

15X,'TE(R)', 10X,'TW(R)',9X,'TAD(R)', 10X,TE/TO',///) 

WRITE(26,7) 

7 FORMAT(18X,T)ELTA{IN)',6X,’THETA(IN)',6X,DELSTAR(IN)',9X,'H', 1IX 

i;tw/to', iox,'tw/tad', iox;tad/to',///) 

WRITE(26,8) 

8FORMAT{17X,T>PDS(P/FT2)’,4X,'DMDS(l/FT)’,7X,’DUDS(l/SEC)’,6X, 
l'DTHDS',6X,'TAUWAL(P/FT2)',7X,'CF, 11X,'BETATH',///) 

WRITE(26,9) 

9 FCaiMAT(16X,'Q(BTU/FT2/SEC)', 1X,’HA(BTU/FT2SECR)',8X,'N’,///) 

12 IF (L-4)13,18,22 

13 WRITE(26,15)N,IT 

15 FCSlMATIlXyAlSX,!^)!^! NO.M4,4X,TAMINAR',5X,I3,lX, 

ITTERATIONS’) 

GO TO 30 

18 WRlTE(26,20)N,n’ 

20 F(»MAT(lXy/,15X,’POINT NO.M4,4X,TRANSmON’,5X,13,lX, 

ITTERATIONS') 

GO TO 30 

22 WRrrE(26,25)N,IT 

25 F(»MAT(lXy/,15X,’P01NT NO.',I4,4X,TURBULENT,5X,13,lX, 

ITTERATIONS') 

30 WRrrE(26,35)XCOR,SCOR,YCQR,EME(N)4lELTlETHPOVPO(N),UE,GMUETlHOE, 
lTE,TW(N),TAD,TETO,DELIN,THEIN,DELSIN,H,TWTO,TWTAD,TADTO,DPDS, 
1DMDS(N)4)UEDS,DTHDS,TAUWAL,CF3CLAUS,DHEAT,HA^ 

35 FORMAT(15X,7E15.6) 

IT=0 

RETURN 

END 

SUBROUTINE IPSO 

IMHJCIT DOUBLE PRECISION (A-H, O-Z) 

CHARACTER’»8JFMT 

DIMENSIC»1X(1000),YY(1000)3EME(1000)T1ALFA(16)^(16),XILN(16), 

lTW(1000),S(1000),POVPO(1000),DMDS(1000),FMr(I0), 

2DELY(1000),YYY(1000) 

COMMON CFOV2,CFOV2L,CFOV2TT)ELRATDELTA,DELTRE,DELTTItDHEAT,DTHDS 
l,DUEDS,EN,ENBAR,ENTURB,H,HINC,OLDDTH,REL,RETH,RETHTR,RHOE,THETA, 
2TAUWAL,THBAR,THETA2,THOVDL,TLTE,ULUE,TRCON,THZERO,PO,TO,TWALL, 
3GAMMA,OMEGA,WATE,CP,PR,GMUO,SW,AI,Bl,A2,B2,C2,A3,B3,GNUE,TE,TAD, 
4TAiyrE,TWTE,QUAY,TETO,UE,GMUETIAT)PDS,DL,XINC,X(1000),YY(1000), 
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5EME( 1000),HALF A(16),XI( 16),XILN(16),TW( 1000), S( 1000),POVPO( 1000), 
6DMDS(1000),FMT(10),IT,L,N,LINES,KOUNT,LAP,NN,INDCF,INDMO,INDMU, 
7INDTW,IhroTR,INDWC,MAX,Mm,INDIl^,INlX)UT,ITMES,lNDPRG 
1610IT=0 

GO TO (1614,1614,1624,1624,1647,1647),L 

1614 L=2 

IF (INDTR.EQ.2) GOTO 1616 

1615 IF(TRCON-RETH) 1618,1618,1642 
1616IF(TRCON-X(N)) 1618,1618,1642 
1618 L=3 

1620RETHTR=RETH 

1621 ULUE=1.0E-4 

1622 CFOV2LCFOV2 

1623 GO TO 1642 

1624 L=4 

IF(1600.-DELTRE)1647,1647,1642 
1647 L=5 
1642 RETURN 
END 

The output file from the method of characteristics and boimdary layer code contained the 
following informaticHi; (1) the point alcsig the wall, (2) the x coordinate of the wall shape, (3) the 
wall Madi number, (4) the displacement thickness with si(te wall growth included, (5) the y 
coordinate of the wall shape, (6) the boundary layer thickness, (7) the displacement thickness 
without side wall growth included and (8) the static to stagnation pressure ratio. 

The coordinate system and nomoiclature are shown in Figure 21. 



Figure 21. Nozzle Shape Coordinate System and Nomenclature 










The shapes produced by this code were based ot a specified laigth of 25 inches. This length was 
measured from the throat to the exit alcMig a line perpendicular to the exit plane. With this 
dimansirai and the exit height constant, the laigths of each curve were differait. The goal of this 
design was to produce a mechanism made from a constant length piece of metal. In order to have 
mathematical solutions which reflected this goal, the curves had to be constant in laigth and the 
horizontal position of the throat free to move. To satisfy this c<mditi<m, ninth order polynomials 
were used to model each shape. By holding the nozzle exit point fixed and varying the throat 
position alcaig a line parallel to the nozzle caiterline, the curves were modified so that they were all 
equal in curve l^gfli. 

B. THROAT TRANSITION POLYNOMIAL 

The additicn of displacCTient thickness to the inviscid sh^e produced a non-zero slope at 
the throat. To correct this discrepancy, a sevaith order polynomial was used to produce a 
continuous faring between the throat coidition and the first point of the method of characteristics 
solution. Ccsitinuity in slqje was assured by msuring equality in the sieves of curvature at the 
boundaries of the t rans ition polynomial. The fisUowing nomoiclature was used in die develq)ment 
of the transitiem polynomial: 

X( - horizontal coordinate of throat 

xj - horizOTtal coordinate of first point in method of characteristics solution 
y^ - vertical coordinate of throat 

yj - vertical coordinate of first point in the method of characteristics soluticm 
The general fi>rm of a sevendi order polynomial was assumed: 

y = Ax" + Bx" + Cx' -H Dx' + Ex' -H Fx' + Gx + H (18) 
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The following values in additioi to the spatial coordinates listed above were known &om the 
method of characteristics soluticn and the throat condition and were applied as boundary 
omditicais; 


dy, 

—- - slope at the throat 
dx 


dx 


- slq)e at the first point in the method of characteristics soluticm 


d y. u u 

—- curvature at the throat 
dx' 



dx' 

dx' 


- curvature at die first point in the method of characteristics solution 


- slope of curvature at the throat 


dx' 


slope of curvature at he first point in the method of characteristics solutioi 


A matrix equaticai was assembled to solve for the coefiBcioits of the polynomial. 
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y. 
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dx 

dx' 

dx' 

yi 

dyj 

dx 

dVi 

dx' 

. dx' . 


(19) 
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The slqje of curvature at the throat was assumed to ccMiform with the traid of the method of 
characteristics solution. The polynomial remained mcmotonic due to the small ratio of the range of 
X to the y values. 

C. SUBSONIC SECTION 

The subswiic section was a somevdiat arbitrary shape. TTie amstramts included, 
continuity in curvature at the throat, zero slope at the aitrance point and monotcwiicity across the 
range. Because of the ratio of x to y values involved, polynomials of higji enough order to satisfy 
the boundary axiditims did not remain moootonic. A parameterized series of curves were used to 
achieve the subscxiic shape (VeAoff, 1995). 

The axes were transformed so Aat the range of coordinates along the curves scaled 
between zero and one. This required 

( 20 ) 

and 

f(^)=y^ (21) 

Ye-y. 

Two parameterized expmentials were used to describe the coordinates of the curves, namely 

^ = 1 - 6 -*" ( 22 ) 

and 

f(^) = e-*‘*'-’^*’ (23) 

The following entrance conditicms were known; 

x^ - horizontal coordinate of nozzle entrance 
yg - vertical coordinate of nozzle oitrance 
dy 

- slope at the nozzle aitrance (zero) 
dx 
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The spatial and slqje constraints were satisfied by the parameterization and the following 
transformed boundary conditicHis applied to find the unknown constants a] and 32'. 


d^^ dx^ (ye-Yt) 

d^f(0) ^ dV. (x.-xj^ 

d^' dx' (ye-y.) 

The constants a\ and aj were given by 


(24) 


(25) 


_ dV, (x.-xj^ 

’ dx^ (ye-y.) 2 


a, = 


(26) 


and 


^2 = 


dVt (x.-x,)^ 
dx^ (y.-y,) 


b" + 6a,b 


(27) 


where b was the constant in the expoioitial that described ^. The constant b was used as a 
'prettying factor' to control the shape of the subsaiic curve. 


D. SHAPE DETERMINATION USING MATLAB™ CODE 

The mathematical developmoit presaited here was coded in a series MATLAB™ script 
files. The program also determined the coordinates of the jack-mounting points on the curves 
based on a specified curve distance. Calculaticms were performed to determine the jack Imgth 
required to adiieve a specific shape. 

MATLAB scr^ files used in die nozzle shape determination are hsted below; 


%Program nozzles.m 
%Teny Enunert 
%Last modification 10 Mar 95 
% 

%Used to analyze output data of Method of Characteristics 
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%and Viscous Boundary Layer Codes obtained from the U.S. 
%Naval Ordnance Laboratory. Input files for this code 
%must be in ASCII text format, oriented in columns. 
%Specilic information required is: 

% No 2 zle contour in x(streamwise direction along 
% centerline(inches)) and y(perpendicular distance 

% from centerline to nozzle waU(inches)). 

% Boimdary Layer data in x(streamwise direction along 
% centerline(inches)) and t(thickness of boundary 

% layer(inches)). 

% 

%Ninth order polynomials are derived from the input data 
%as representations of the supersonic section of the nozzle. 
%Because of the Method of Characteristics (MOC) solution 
%begins at some finite distance downstream of the throat, 
%a transition polynomial is derived as a faring between 
%the throat condition(as determined isentropically from 
%known exit conditions and coinciding with inputs to MOC 
%code) and the first point of the MOC solution. 

%A parameterized exponential function is used to describe 
%the subsonic section (from the nozzle entrance to the 
%throat. 

0 /„- 


0 /„- 

%Specify program run (qrtions: 1 - invokes, 0 - ignores 

0 /„ - 


clear 

clock irtvoke = 0; %paat internal clock time at program 
%start and end 

makepoly_inv(rite = 0; %to run program makepoly.m; reads input 
%files and finds polynomials. Saves 
%solutions to potyspotmat. If not 
%invoked, program looks for existing 
?(^lyspot.niat file. Becuase of run- 
%time, this option stops program after 
^^lyspot.mat is created 


compare_invoke = (>; %c(Hnpare actual data to polynomials 
closexy = 0; %looks at every tenth set of actual 
%data 


slope_curve_inv = 0; %takes derivatives of contour data 
plot slope = 0; %to arrive at slope and curvatme 
plot_curve = 0; %solutions 


fix_len_inv = 0; 
fix_plot_in=0; 


%find length of specific contour and 
%use that length to force determination 
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%of all other contours. If not invoked 
%program looks for existing specspot.mat 
%file. 

jack track inv =0; %takes series of curves based on one 
plot_track = 0; %fixed length curve and determines path 
%of specified points along curve length 
%(s). If not invoked, program looks for 
%specspol.mat file. 

slope curvef inv = 1; %takes derivatives of contour data 
plot_slopef = 0; %to arrive at slope and curvature 
plot_curvef = 0; %solutions 

throat to super = 1; ^^lynomial to fit between throat 
%and first point of method of 
%charateristics solution. 

%must make up for positive 
%slq)e created by displacement 
%thickness addition, ensuring 
%slope at throat is zero. 

exponetial_ss = 1; %determines shape of subsonic 
%section based on parameterized 
%e?qx)nential functions 

jackjength = 0; %find jack lengths for specified 

%jack mount point. Specify the 
%center of jack pivot point in this 
%code and the code will return the 
%necessaiy jack length between the 
%pivot point and the jack mount 
%eyelet center for each shape 


num_points = 250; 

if clodrinvoke 
clock 
end 

if makepoly_invoke 

%mast qtecify order of polynimial fit to use 
%(in this case 10) 

%aiid imndjer of contours contained in the input 
%files (in this case 61) 

%in the file makepoly.m 
makepoly 

%once run, polyspotmat contains contour, U^er, 

%order(10) and muncurve(61) 

disp('Control C and restart program with makepoly invdce = 0;"); 
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pause 


else 

load poly spot 
end 

if compareinvoke 

%load selected actual data as a basis for 
%comparision of polynomials 

load 125ml40;load 125ml50;load 125ml60;load 125ml70;load 125ml80;load 125ml90;load 125m200 
%generate vectors based on polynomials for 
plotting 

X = lin:q)ace(0,25,10);yl40 = polyval(contoiir(l,:),x);yl50 = polyval(contour(ll,;),x);yl60 = 
polyval(contour(21,;),x);yl70 = polyval(contour(31,:),x);yl80 = polyval(contour(41,:),x);yl90 = 
po^al(contour(51,:),x);y200 = polj^al(contour(61,:),x); 

%plot polynomials and actual data for 
%comparison 
if closexy 

subidot(3,l,l); 

end 

plot(x,yl40,'*',125ml40<:.2),125ml40(:,5),x,yl50,’*’,125ml50(:,2),125ml50(:,5),x,yl60,'*',125ml60(:,2),12 

5ml60(;,5),x,yl70,'*M25ml70(:,2),125ml70(:,5),x,yl80,’*M25ml80(:,2),125ml80(:,5),x,yl90,’*M25ml9 

0(:,2),125ml90(:,5),x,y200,’*M25m200(;,2),125m200(:,5)); 

axis([-. 1,4,1 •5,2.5]);grid 
end 

if slope_curve_inv 

%find the slope and curvature of the contom 
contourslope = zeros(numcurve,order); 
contour_curve = zeros{muncurve,or<ler); 
curve_slope = zeros(numcurve,order); 

contour_sl<^ = dydx(contour); 
contour_curve = <:fydx(contour_slope); 
curve_slope = dydx(contour_curve); 

if plot_slope 

XX = linspace(0,25,100); 

lrfot(xx,polyval(coiitour_slope(l,:),xx),xx,polyval(contour_slope(ll,:),xx),xx,polyval(contour_slope(21,:), 

xx),xx,polyval(contour_slope(31,:),xx),xx,polyval(contour_slope(41,:),xx),xx,polyval(contour_slope(51,:), 

xx),xx,polyval(cojitour_slope(61,:),xx)); 

end 

ifplot_cuive 

XX = linspace(0,25,100); 

plot(xx,polyval(contour_curve(l,:),xx),xx,polyval(contour_curve(ll,:),xx),xx,polyval(contour_curve(21,:), 

xx),xx,polyval(contour_curve(31,:),xx),xx,polyval(contour_curve(41,:),xx),xx,polyval(contour_curve(51,:) 

,xx),xx,polyval(contour_curve(61,:),xx)); 

end 

end 


88 



%find the tenths of the curves 
% curvestart = 0; 

% curve_end = 25; 

% contourlength = lenfind(contour,num_pomts,curve_start,curve_end) 
if fixleninv 

%find length of Mach 2.0 contour then develope shapes for 
%all other curves based on that length, 
chosen Mach = 61; %equates to Mach 2 contour 
curvestart = 0; 
curve_end = 25; 

contourM20_length = lenfind(contour(chosen_Mach,;),num_pomts,curve_stait,curve_end); 
[horz_dim,fixed_contoiu-] = conforce(contour,contourM20_length,niunjpoints,curve_start,curve_end); 

%save contours in specspot.niat 
out = savespec(horz_dim,fixed_contour); 
else 

load specspot 
end 

if fixjplot_in 

%take a lode at curves 

pIot{horz_dim(l,:),fixed_contoui(l,:),'k',horz_dini(ll,:),fixed_contour(ll,:),hoiz_dim(21,:),fixed_contour 

(21,:),horz_dim(31,:),fixed_contour(31,:),horz_dim(41,:),fixed_contour(41,:),horz_dun(51,:),fixed_contou 

r(51,:),horz_dim(61,:),fixed_contour(61,;),'k'); 

grid;title(Tixed Length Contours (based on M=2.0 shape)'); 
ylabelCY (inches)');xlabel('X (inches)'); 
text(-t.5,2.4,'M=1.4 >');text(-4.5,l.6,'M=2.0 >’); 
axis([-.05,.01,1.5,2.51); 
end 

if slope_curvef_iiiv 

contourf = zeros(numcurve,order); 
contourslopef = zeros(nuincurve,oider); 
contourcurvef = zeros(nunicurve,order); 
curve_slopef = zeros(numcurve,oider); 

% for r = Itnumcurve 

% contoiiif(r,;) = polyfit(hoiz_dim(r,:),fixed_contour(r,:),order-l); 

% end 

contoor_slopef = <fydx(contoor); 
contouranvef = <fydx(contour_slopef); 
curve_slopef = dydx(contour_curvef); 

if plot_slopef 

XX = linspace(-. 1,25,100); 

ldot(xx,polyval(contour_sl<q)ef(l,;),xx),'k*,xx,polyval(contour_sl<q3ef(ll,:),xx),xx,polyval(contour_slopef(2 
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1, :),xx),xx,polyval(contour_slopef{31,; ),xx),xx,polyval(contour_slopef(41,: ),xx),xx,polyval(contour_slopef 
(51, ;),xx),xx,polyval(contour_sIopef(61, ;),xx),’k'); 
grid;titie('Slopes of Fixed Length Contours'); 
ylabel('dY/dX');xlabel('X (inches)'); 
text(6,.022,1^4=1.4 >');text(5.5,.085,'M=2.0 >'); 

end 

if plot_curvef 

XX = linspace(-. 1,25,100); 

plot(xx,polyval(contour_curvef(l,;),xx),'k',xx,polyval(contour_curvef(ll,;),xx),xx,polyval(contour_cuivef( 

21,:),xx),xx,polyval(contour_curvef(31,:),xx),xx,polyval(contour_curvef(41,:),xx),xx,polyval(contour_curv 

ef(51,:),xx),xx,polyval(contour_curvef(61,:),xx),'k'); 

grid;title('Curvatures of Fixed Length Contours'); 
ylabel('d''2Y/dX''2');xlabel(’X (inches)'); 
text(l,.001,'M=1.4 >’);text(6.5,.008,'< M=2.0'); 

end 

end 

if throattosiqjer 
Tradcurve = 95; 

ttp_order = 8; %throat transition polynomial order 

ttj^s = 50; %number of points used in ttp 

ttpxx = zeros(numcurve,ttppts); 

ttpyy = zeros(niuncurve,ttpf3ts); 

ttpoly = zeros(numcurve,ttp_order); 

xxss = zeros(numcurve,num_points); 

yyss_slope = zeros(numcurve,num_points); 

yyss_curve = zeros(numcurve,num_points); 

yyss_slope_curve = zeros(niuncurve,numjoints); 

grab_bc = zeros(numcurve,2); 
slope_curve_throat = zeros(numcurve,l); 
ttpyy_slope = zeros(nunicurve,ttppts); 
ttpyy_curve = zeros(numcurve,ttRJts); 
ttpyy_slope_curve = zeros(nunicurve,ttppts); 

forr= Lniuncurve 

xt = lK)rz_dun(r,l); %x at throat 
yt = isoTheight(r); %y at throat 
Sxt = 0; %slope at throat 

Cxt = 1/Trad_curve; %curvature at throat 
SCxt = -.005; %slope of curvature at throat 

^(4his value had to be imposed 
%to ensure a satisfactory solution 
%in the subsonic section. 

%set to a small negative value 
%within an order of maginitude 
%of third derivatives of contours. 

%because the subsonic section 
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%is exponential in nature, change 
%in sign could not be allowed 

xi = first_x(r)- (horz_dini(numcurve,l) - horz_dim(r,l)); 

%x at first point on contour 
yi = polyval(contour(r,:),xi); 

%y at first point on contour 
Sxi = polyval(contour_slopef(r,;),xi); 

%slope at first point on contour 
Cxi = polyval(contour_curvef(r,;),xi); 

%curvature at first point on contour 
SCxi = polyval(curve_slopef(r,:),xi); 

%slope of curvature at first point on contoiu 
tranpoly = findttp(xL,yt,Sxt,Cxt,SCxt,xi,yi,Sxi,Cxi,SCxi); 
ttpoly(r,;) = tranpoly'; 
ttpxx(r,:) = linspace(xt,xi,ttppts); 
ttpyy(r,:) = polyval(tranpoly,ttpxx(r,:)); 
xxss(r,;) = linspace(xi,25,num_points); 
yyss(r,:) = polyval(contour(r,:),xxss(r,:)); 
yyss_slope(r,:) = polyval(contour_slopef(r,:),xxss(r,:)); 
yyss_curve(r,:) = polyval(contour_curvef(r,:),xxss(r,:)); 
yyss_sl<^_curve(r,:) = polyval(curve_slopef(r,:),xxss(r,:)); 

end 

% plot(ttpxx(61,;),ttpyy(61,:),xxss(61,:),yyss(61,:),ttpxx(l,:),ttpyy(l,:),xxss(l,:),yyss(l,:)); 

% axis([-.l,.5,0,3]); 


ttp_slope = (fydx(ttpoly); 
ttpcurve = (fydx(ttp_slope); 
ttp_slope_curve = cfydx(ttp_cuive); 


for r = l:numcurve 
xt = hoiz_dim(r,l); 

grab_bc(r,:) = [polyval(ttp_curve(r,:),xt) polyval(ttp_slope_curve(r,:),xt)]; 
slope_curve_throat(r) = polyval(ttp_slope_curve(r,;),xt); 
ttpyy_sl(^r,:) = polyvaI{ttp_slq;^r,:),ttpxx(r,:)); 
ttpyy_curve(r,:) = polyval(ttp_curve(r,:),ttpxx(r,:)); 
ttpyy_sl<^_curve(r,:) = po^ai(ttp_slope_curve{r,;),ttiKx(r,:)); 


end 


% 

ldot(ttpxx(61,:),t^(61,;),xxss(61,:),yyss(61,:),ttpxx(51,:),ttpyy(51,:),xxss(51,;),yyss(51,:),ttpxx(41,:),ttpy 

y(41,:),xxss(41,;),yyss(41,:),ttpja(31,;),ttpyy(31,:),xxss(31,:),yyss(31,:),ttpxx(21,:),ttpyy(21,:),xxss(21,:),yy 

ss(21,:),ttpxx(ll,:),t4jyy(ll,;),xxss{ll,:),yyss(ll,;),ttpxx(l,;),ttpyy(l,:),xxss(l,:),yyss(l,:)); 

% axis{[-.l,.5,1.4,2.6]); 

% 

plot(ttpxx(61,:),ttpyy_slope(61,;),xxss(61,:),yyss_sl(^61,;),ttpxx(5l,:),tQw_slope(51,;),xxss(51,:),yyss_s 

lope(51,:),ttpxx(41,;),ttpyy_slope(41,:),xxss(41,;),yyss_slope(41,:),ttpxx(31,:),ttpyy_slope(31,:),xxss(31,;), 

yyss_sIope(31,:),ttpxx(21,:),ttpryy_slope{21,:),xxss(21,:),yyss_slope(21,:),ttpxx(ll,:),ttpyy_slope(ll,;),xxss 

(ll,;),yyss_slope(ll,;),ttpxx(l,:),ttpyy_slope(l,;),xxss(l,:),yyss_slope(l,:)); 


91 



% axis(I-.l,.4,-.001,.015]); 

% 

plot(ttpxx(61,:),ttpyy_curve(61,:),xxss(61,:),yyss_curve(61,:),ttpxx(51,:),ttpyy_curve(51,:),xxss(51,:),yyss_ 
curve(51,;),ttpxx(41,:),ttpyy_curve(41,:),xxss(41,:),yyss_curve(41,:),ttpxx(31,:),ttpyy_curve(31,:),xxss(31,; 
),yyss_curve(31,;),ttpxx(21,;),ttpyy_curve(21,:),xxss(21,:),yyss_ciirve(21,;),ttpxx(ll,:),ttpyy_curve(ll,;),x 
xss(l l,;),yyss_curve(l I,:),ttpxx(l,:),ttpyy_curve(l,:),xxss(l,:),yyss_curve(l,:)); 

% axis([-.l,. 1,0,021); 

% 

plot(ttpxx(61, :),ttpyy_slope_curve(61,; ),xxss(61, :),yyss_slope_curve(61, :),ttpxx(51, ;),ttpyy_slope_curve(5 

l,:),xxss(51,;),yyss_slope_curve(51,:),ttpxx(41,:),ttpyy_slope_curve(41,;),xxss(41,:),yyss_slope_curve(41,: 

),ttpxx(3l,:),ttpyy_slope_curve(31,:),xxss(31,;),yyss_slope_curve(31,:),ttpxx(21,;),ttpyy_slope_curve(21,;), 

xxss( 21 ,;),yyss_slope_curve( 21 ,:),ttpxx(ll,:),ttpyy_slope_curve(ll,:),xxss(ll,:),yyss_slope_curve(ll,:),ttp 

xx(l,;),ttRyy_slope_curve(l,:),xxss(l,;),yyss_slope_curve(l,:)); 

% axis([-.l,.4,-2,2]); 

end 

if exponetial_ss 

numSpts = 150; %number of points used in the 

%subsonic section 


sub_ejq»_sX = zeios(numcurve,munSpts); 
sub_expo_sY = zeros(nunicurve,nuinSpts); 
sub_expo_sYp = zeros(numcurve,numSpts); 
sub_expo_sYpp = zeros(numcurve,numSpts); 
sub_expo_sYR)p = zeros(numcurve,numSpts); 


b = .7; ^i^jrettying &ctor 


xi = -20; 
yi = 5; 

Sxi = 0; 

Sxt = 0; 
Cxt = 1/95; 


%inlet X dimension 
%inlet y dimension 
%inlet slope 
%throat slqpe 
%throat curvature 


already_done = 1; 
if already_done 
for r = 1 :numcurve 
%r=31 

xt = ttpxx(r,l); 
yt = ttpyy(r,l); 

SCxt = dope_curve_thToat(r); 

[x,y,yp,ypp,yppp] = exposhp(xi,xt,yi,Sxi,yt,Sxt,Cxt,SCxt,b,numSpts); 
sub_e3q»_sX(r,:) = x; 
sub_e3q»_sY(r,:) = y; 
sub_e?qx)_sYp(r,;) = yp; 
sub_ejq)o_sYpp(r,:) =ypp; 
sub_expo_sYi^r,;) = yppp; 
end 
end 


%♦♦**♦♦♦** plot all curves ♦♦**♦♦* 
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%plot(sub_expo_sX(r,; ),sub_expo_sY (r,ttpxx(r,: ),ttpyy(r, :)),xxss(r,: ),yyss(r,:)); 

% subplot{4J,2); 

% 

plot(sub_ejq»_sX(61,:),sub_ejipo_sY(61,;),'k',ttpxx(61,;),ttpyy(61,;),'k',xxss(61,:),yyss(61,:),'k',siib_e?q»_ 

sX(51,:),sub_expo_sY(51,:),'k',ttpxx(51,;),ttpyy(51,:),'k',xxss(51,:),yyss(51,:),'k',sub_expo_sX(41,:),sub_ex 

po_sY(41,:),'k',ttpxx(41,:),ttpyy(41,;),'k',xxss(41,:),yyss(4I,:),'k',sub_expo_sX(31,:),sub_expo_sY(31,:),'k', 

ttpxx(31,;),ttpyy(31,:),'k',xxss(31,:),yyss(31,:),'k',sub_e5qx)_sX(21,:),sub_expo_sY(21,:),'k',ttpxx(21,:),ttpy 

y(21,;),'k',xxss(21,;),yyss(21,;),'k',sub_ejqx)_sX(ll,;),sub_expo_sY(ll,:),'k',ttpxx(ll,:),ttpyy(ll,:),'k',xxss( 

ll,;),yyss(ll,:),'k',sub_expo_sX(l,:),sub_expo_sY(l,;),'k',ttpxx(l,:),ttpyy(l,;),'k’,xxss(l,:),yyss(l,:)),'k'; 

% sul^lot(4,l,2); 

% 

pIot(sub_expo_sX(61,:),sub_expo_sY(61,;),'k',ttpxx(61,:),ttpyy(61,:),'k',xxss(61,:),yyss(61,:),'k',sub_e?q»_ 
sX(41,:),sub_expo_sY(41,:),'k',ttpxx(41,:),ttpyy(41,:),'k',xxss(41,:),yyss(41,sub_expo_sX(31,:),sub_ex 
po_sY(31,:),'k',ttpxx(31,:),ttpyy(31,;),'k’,xxss(31,;),yyss(31,:),'k',sub_expo_sX(21,:),sub_expo_sY(21,;),'k', 
ttpxx(21,:),tti^(21,:),'k',xxss(21,;),yyss(21,:),'k',sub_expo_sX(l,:),sub_expo_sY(l,:),'k',ttpxx(l,:),ttpyy(l, 
:),'k',xxss(l,:),yyss(l,:),’k'); 

plot(sub_expo_sX(61,:),sub_expo_sY(61,:),V,ttpxx(61,:),ttpyy(61,:),'r',xxss(61,:),yyss(61,:),'r',sub_expo_s 

X(31,:),siib_expo_sY(31,:),'r',ttpxx(31,:),ttpyy(31,:),'r',xxss(31,;),yyss(31,:),'r',sub_expo_sX(l,:),sub_expo 

_sY(l,;),'r',ttpxx(l,:),ttpyy(l,:),'r',xxss(l,:),yyss(l,:),’r'); 

% titieCRange of No^e Shapes'); 

% ylabelCY (mches)');xlabel('X (inches)'); 

% text(-2.5,1.8,'Mach 2.0');text(-2.5,2.6,'Mach 1.4');text(-2.5,2.2,'Mach l.T); 

% axis([-20,25,0,5]);grid 

% 

ldot{sub_ejq»_sX(61,:),sub_expo_sYp(61,:),ttpxx(61,:),tQjyy_slope(61,:),xxss(61,:),yyss_slope(61,:),sub_e 

xpo_sX(5l,;),sub_e;qx)_sYp(51,;),ttpxjd51,:),ttpyy_slope(51,:),xxss(51,;),yyss_slope(51,:),sub_expo_sX(4 

l,;),sub_expo_sYp(41,;),tt{^41,:),ttpyy_slope(41,:),xxss(41,:),yyss_slope{41,:),s^_expo_sX(31,:),sub_e 

xpo_sYp(3 l,;),ttpxx(3 l,:),ttpyy_slope(3 l,:),xxss(3 l,;),yyss_slope(3 l,:),sub_expo_sX(21,:),sub_expo_sYp( 

21,:),ttpxx(21,:),ttpyy_slope(21,:),xxss(21,:),yyss_slope(21,;),sub_e3q»_sX(ll,:),sub_expo_sYp(ll,:),ttpx 

x(l l,;),ttpyy_slope(l l,;),xxss(l l,:),yyss_slope(l l,:),sub_expo_sX(l,:),sub_expo_sYp(l,:),ttpxx(l,:),ttpyy_ 

sl<^l,:),xxss(l,:),yyss_slope(l,;)); 

% 

f4ot(sub_expo_sX(6I,:),sub_expo_sYp(61,:),ttpxx(61,:),ttpyy_slope(61,:),xxss(61,;),yyss_slope(61,;),SHb_e 
xpo_sX(3 l,:),sub_expo_sYp(3 l,;),ttpxx(3 l,;),ttpyy_slope(3 l,;),xxss(3 l,:),yyss_slope(3 l,:),sub_expo_sX(l, 
:),sub_ejqx>_sYp(l,:),tQjxx(l,:),ttpyy_sl<q)e(l,:),xxss(l,:),yyss_slope(l,:)); 

% titleCEntire Nozzle Slope Variation(Throat Detail)'); 

% ylabel('dY/dX');xlabel('X');grid 
% axis([-.l,.4,-.0025,.015]); 

% text(.27,.0095,'Mach 2.0');text(.31,.0135,'Mach 1.4’);text(.27,.0115,'Mach l.T) 

% 

plot(sub_ej^_sX(61,:),sub_e3?»_sYpp(61,:),ttpxx(61,:),ttpyy_curve(61,:),xxss(61,;),yyss_curve(61,:),sub 
_e3q»_sX(51,:),subjejq)0_sYpp(51,:),ttpxx(51,:),ttpyy_curve(51,:),xxss(51,;),yyss_curve(51,:),sub_e?qx)_s 
X(41,;),siib_ex|>o_sYpp(41,:),ttpxx(41,;),tQjyy_curve(41,:),xxss(41,:),yyss_curve(41,:),sub_e3q)o_sX(31,:), 
sub_ejq»_sYi^31,;),ttpxx(31,:),ttpyy_cuive(31,:),xxss(31,:),yyss_curve(31,:),siib_expo_sX(21,:),sub_exp 
o_sYp^21,:),ttpxx(21,:),ttpyy_curv^21,:),xxss(21,:),yyss_curve(21,:),sub_ejq»_sX(ll,:),sub_e3q)o_sYp^ 
1 l,;),ttpxx(l l,:),ttpyy_curve(l l,:),xxss(l l,;),yyss_curve(l l,:),sub_expo_sX(l,:),sub_expo_sYpp(l,:),t4)xx 
(1,: ),ttpyy_curve( 1,: ),xxss( 1,: ),yyss_curve( 1,:)); 

% titleCEntire Nozzle Curvature Variation(Throat Detail)');ylabel('d^2Y/dX''2');xlabel('X');grid 
% axis([l 1,14,-005,0]); 

% 

plot(sub_expo_sX(61,:),sub_e?q»_sYppp(61,:),ttpxx(61,:),ttpyy_slope_curve(61,:),xxss(61,:),yyss_slope_c 
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urve(61,:),sub_expo_sX(51,:),sub_ejq»_sYRjp(51,:),ttpxx(51,;),ttpyy_slope_curve(51,:),xxss(51,:),yyss_sl 

ope_curve(51,:),sub_expo_sX(41,;),sub_expo_sYOTJ(41,;),ttpxx(41,:),ttpyy_slope_cwve(41,:),xxss(41,:),y 

yss_slope_cuTve(41,:),sub_e}qx)_sX(31,;),sub_ejqx)_sYn3)(31,:),ttpxx(31,:),ttpfyy_slope_curve(31,:),xxss( 

31,;),yyss_slope_curve(3l,:),sub_expo_sX(21,;),sub_ejqx)_sYppp(21,:),ttpxx(21,:),ttpyy_slope_curve(21,:) 

,xxss( 21 ,;),yyss_slope_ciirve( 21 ,:),sub_expo_sX(ll,:),sub_ejqx)_sYH^ll,:),ttpxx(ll,:),ttpyy_slope_curve 

(1 l,:Xxxss(l l,:),yyss_slope_cuA'e(l l,;),sub_expo_sX(l,:),sub_expo_sYppp(l,:),ttpxx(l,:),tti^_slope_cur 

ve(l,:),xxss(l,:),yyss_slope_curve(l,:)); 

% title('Entire Nozzle Slope of Curvature Variation(Throat 
Detail)');ylabel(’d^3Y/dX^3');xlabel('X);grid 
% axis([-.2,.4,-2,1.5]); 

end 

if jacktrackinv 

%take curves based on fixed M=2 contour and determine x, y 
%coordinates for given distances along contour. 

%this data should define a polynomial for the 
%path that a specific point on the flex wall follows 
%through shape changes 
%this information will be required for jack path. 

XXfoijack = [sub_expo_sX ttpxx xxss]; 

YYfoijack = [sub_expo_sY ttpyy yyss]; 

%s_dim is measured from the nozzle exit back to the 
%point of interest 

s dim = [7 10 12.75 16 19 22 28.5 31.5]; 

[x_for_s,y_for_s,c_ind] = findxy(XXfoijack,YYfoijack,s_dim); 
out = savespel(x_for_s,y_for_s,c_ind); 
else 

loadspecspol 

end 

if plot_track 


plot(x_for_s,y_for_s,ttpxx(:,l),ttRyy(:,l),'k:’,sub_e)q»_sX(61,:),sub_e:q»_sY(61,:),’k',ttpxx(61,:),ttpyy(61, 

:),V,xxss(61,:),yyss(61,:),V,sub_ejq)o_sX(41,;),sub_e3q)o_sY(41,:),V,ttpxx(41,;),ttpyy(41,;),'k',xxss(41,;), 

yyss(41,;),V,sub_expo_sX(31,:),siib_expo_sY(31,:),V,ttpxx(31,;),tqjyy(31,:),V,xxss(31,:),yyss(31,:),'k',su 

b_expo_sX(21,:),sub_expo_sY(21,:),’k',ttpxx(21,:),ttpyy(21,:),'k’,xxss(21,:),yyss(21,:),V,sub_expo_sX(l,:) 

,sub_ejq»_sY(l,;),'k',ttpxx(l,:),ttpyy(l,:),'k',xxss(l,:),yyss(l,:),'k'); 

grid;title('Paths of Jack Mounting Locations'); 
ylabelCY (indies)');xlabel('X (inches)'); 

% axis([-20,-15,2.2,2.7]); 


% 

subplot{ 2 ,l,l);iiot(x_for_s,y_for_s,horz_dim(l,:),fixed_contour(l,:),hoiz_dim(ll,:),fixed_contour(lL:),h 

orz_dim(21,:),fixed_contour(21,:),horz_dim(31,:),fixed_contour(31,:),horz_dim(41,;),fixed_contour(41,:), 

horz_dim(51,:)^ed_contour(51,:),horz_dim(61,:),fixed_contoiir(61,:),horz_dim(:,l)4xed_contour(:,l)); 

% 

subplot( 2 ,l, 2 );plot(x_for_s,y_for_s,horz_dim(l,;),fixed_contour(l,:),horz_dim(ll,:),fixed_contour(ll,;),h 

orz_dim(21,:),fixed_contour(21,;),hoi2_dim(31,;),fixed_contour(31,:),hoiz_dim(41,:),fixed_contour(41,:), 

horz_dim(51,:),fixed_contour(51,;),horz_dim(61,:)4ixed_contour(61,;),horz_dim(;,l)4xed_contour(:,l)); 
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% axis([-.05,.01,15,2.5]); 

end 


ifjacklength 

%thickness of flex plate 

%distance from upper surface of 
%plate to center of jack mount 
%eyelet 

%Jack pivot points Xmount, Ymount are with respect to the 
%throat coordinates of the Mach 2.0 shape 
Xmount = [17.821 14.648 11.872 8.598 5.679 2.760 -2.842 -5.522 0]; 

Ymount = [10.750 10.750 10.750 10.750 10.750 10.750 10.750 10.750 10.750 ]; 

[mum,cnum] = size(c_ind); 

(]^<bgack = zeros(mum,cnum+l); 

Xjack = [xfors ttpxx(:,l)]; 

Yjack = [y_for_s ttpyy(:,l)]; 
slope_bin = [sub_expo_sYp ttpyyslope yyssslopej; 
column_index = [c_ind ones(r,l)*(length(sub_expo_sX(l,:))+l)]; 
for r= l;mum 

(fyd?gack(r,:) = slope_bin(r,coluinn_index(r,;)); 
end 

jacklength = zeros(mum,cnuni+l); 

Xmount = ones(mum,l)*[17.821 14.648 11.872 8.598 5.679 2.760 -2.842 -5.522 0]; 

Ymount = ones(mum,l)*[10.750 10.750 10.750 10.750 10.750 10.750 10.750 10.750 10.750 ]; 


t = .25; 
d = .5; 


ys = (Ymount - (Yjack + (t./cos(atan(dyd!gack))) + (d*cos(atan(dyd3gack))))).'^2; 
xs = (Xmount - (Xjack - (d*sin(atan((fy<b^k))))).''2; 
jacklength = sqrt(ys + xs); 


end 

%detemine the difference in shape between the Mach 1.7 curve 
%and the Mach 1.4 and 2 curves. 

dely20 = [sub_e3q)o_sY(61,;)-sub_expo_sY(31,:) tqjyy(61,:)-ttpyy(31,:) yyss(61,:)-yyss(31,:)]; 
x20 = [sub_expo_sX(31,:) ttpxx(31,;) xxss(31,:)]; 

delyl4 = [si*_e3q»_sY(l,:>^_expo_sY(31,:) ttpiyy(l,:)-ttpyy(31,:) yyss(l,:)-yyss(31,:)]; 
xl4 = [sub_e3q»_sX(31,:) ttpxx(31,:) xxss(31,:)]; 

%subplot(3,l,l) 

%xl7 = linspace(-20,25,50);yl7 = zeros(l,length(xl7)); 
%plot(xl4,delyl4,'r',x20,dely20,'r',xl7,yl7,'r');grid 
%title('Extrenie Shape Divergence from Mach 1.7 Contour'); 

%ylabel(Y (inches)');xlabel('X (inches)'); 

%text(-5,-.39,'Mach2.0');text(-5,0.03,'Mach l.T);text{-5,.43,'Mach 1.4'); 
if clock_invoke 
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clock 

end 


%Prograni makepoly.in 
%reads in ideal nozzle data 
%converts data to polynomials 
%saves polynomials polyspot.mat 
clear 

numcurve = 61; 
order = 10; 

contour = zeros(numcurve,order); 
blayer = zeros(numcurve,order); 
disidace = zeros(numcurve,order); 

Tdisthick = zeros(numcurve,l); 
isoTheight = zeios(numcurve,l); 
first_x = zeros(niimcurve, 1); 

load 125ml40;load 125ml41;load I25ml42;load 125ml43;load 125ml44;load 125ml45; 
load 125ml46;load 125ml47;load 125ml48;load 125ml49;load 125ml50;load 125ml51 
load 125ml52;load 125ml53;load 125ml54;load 125ml55;load 125ml56;load 125ml57 
load 125ml58;load 125ml59;load 125ml60;load 125ml61;load 125ml62;load 125ml63 
load 125ml64;load 125ml65;load 125ml66;load 125ml67;load 125ml68;load 125ml69 
load 125ml70;load 125ml71;load 125ml72;load 125ml73;load 125ml74;load 125ml75 
load 125ml76;load 125ml77;load 125ml78;load 125ml79;load 125ml80;load 125ml81 
load 125ml82;load 125ml83;load 125ml84;load 125ml85;load 125ml86;load 125ml87 
load 125ml88;load 125ml89;load 125ml90;load 125ml91;load 125ml92;load 125ml93 
load 125ml94;load 125ml95;load 125ml%;load 125ml97;load 125ml98;load 125ml99 
load 125m200 

%find polynomials of disfdacement thickness 
dispthickinvoke = 0; 

if disp_thick_invoke 

displace(l,:) = polyfit(125ml40(:,2),125ml40(:,4),order-l); 
displace{2,:) = polyfit(125ml41(:,2),125ml41(;,4),order-1); 
dis(^ce(3,:) = po^t(125ml42(:,2),125ml42(;,4),order-l); 
displace(4,;) = polyfit(125ml43(:,2),125ml43(:,4),order-1); 
displace(5,;) = polyfit(125ml44(:,2),125ml44{;,4),order-l); 
displace(6,:) = polyfit^5ml45(:,2),125ml45(:,4),order-1); 
displace(7,:) = p(^?fit(125ml46(:,2),125ml46(:,4),order-1); 
displace(8,:) = pol^t(125ml47(;,2),125ml47(:,4),order-1); 
disrdace(9,:) = polyfit(125ml48{;,2),125ml48(:,4),order-1); 
displace(10,:) = polyfit(125ml49(:,2),125ml49(:,4),or<ter-l); 

disfiace(ll,:) = polyfit(125ml50(:,2),125ml50(:,4),order-1); 
displace(12,:) = polyfit(125ml51(:,2),125ml51(:,4),order-l); 
displace(13,:) = polyfit025ml52(;,2),125ml52(;,4),order-l); 
displace(14,;) = polyfit(125ml53(:,2),125ml53(:,4),order-l); 
displace(15,:) = polyfit(125ml54(;,2),125ml54(:,4),order-1); 
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displace(16,:) = polyfit(125ml55(:,2),125ml55(;,4),order-1); 
displace(17,:) = po^t(125ml56(:,2),125ml56(:,4),order-1); 
displace(18,:) = po^t(125ml57(:,2),125ml57(;,4),order-1); 
displace(l9,:) = po^t(125ml58(:,2),125ml58(;,4),order-l); 
displace(20,:) = polyfit(125inl59(:,2),125ml59(:,4),order-1); 

displace(21,;) = polyfit(125ml60(:,2),125ml60(:,4),or(fer-l); 
displace(22,:) = polyfit(125ml61(:,2),125inl61(:,4),order-l); 
displace(23,:) = polyfit(125ml62(:,2),125ml62(;,4),order-1); 
displace(24,:) = polyfit025ml63(:,2),125ml63(:,4),order-1); 
displace(25,:) = pol^t(125ml64(:,2),125ml64(:,4),order-1); 
displace(26,:) = polyfit(125nil65(:,2),125ml65(:,4),order-1); 
displace(27,;) = polyfit(125ml66(:,2),125ml66(;,4),order-1); 
displace(28,:) = polyfit(125ml67(:,2),125ml67(:,4),order-1); 
displace(29,;) = po^t(125ml68(;,2),125ml68(;,4),order-l); 
displace(30,:) = polyfit025ml69(:,2),125ml69(:,4),order-l); 

displace(31,;) = polyfit(125ml70{:,2),125ml70(:,4),order-1); 
displace(32,:) = polyfit(125ml71(:,2),125ml71(;,4),order-1); 
displace(33,:) = po^t(125ml72(:,2),125ml72(:,4),order-1); 
displace(34,:) = polyrit(125ml73(:,2),125ml73(;,4),order-1); 
displace(35,;) = polyfit(125ml74(:,2),125ml74(:,4),order-l); 
displace(36,;) = po^t(125inl75(:^),125ml75(:,4),order-l); 
displace(37,;) = polyfit(125ml76(:,2),125ml76(:,4),order-l); 
displace(38,;) = pol^t(125ml77(:,2),125iiil77(:,4),order-l); 
displace(39,:) = polyfit(125ml78(:,2),125ml78(:,4),order-1); 
displace(40,:) = polyfit(125ml79(;,2),125ml79(:,4),order-l); 

displace(41,:) = polyfit(125ml80(:,2),125ml80(:,4),order-l); 
displace(42,;) = polyfit(125ml81(:,2),125ml81(:,4Xorder-l); 
displace(43,:) = polyfit(125ml82(:,2),125ml82(:,4),order-l); 
displace{44,:) = polyfit(125ml83(:,2),125ml83(:,4),order-l); 
displace(45,;) = po^t(125ml84(;,2),125ml84(:,4),order-l); 
displace(46,;) = po^t(125inl85(:,2)425ml85(:,4),order-l); 
displace(47,:) = polyfit(125ml86(:,2),125ml86(:,4),order-1); 
displace(48,;) = polyfit(125ml87(:,2),125ml87(:,4),or(ter-l); 
displace(49,:) = polyfit(125ml88(;,2),125ml88(:,4),order-l); 
displace(50,:) = po]^t(125ml89(:,2),125ml89{:,4),order-l); 

displace(51,;) = polyfit(125ml90(:,2),125ml90(:,4),order-l); 
displace(52,:) = polyfit(125ml91(;,2),125ml91(:,4),order-l); 
disidace(53,:) = potyfit(125iiil92(;,2),125inl92(;,4),order-l); 
displace(54,:) = polyfit(125ml93(:,2),125ml93{:,4),order-l); 
displace(55,:) = polyfit(125ml94(:,2),125ml94(:,4),order-l); 
displace(56,:) = polyfit(125ml95(:,2),125ml95(;,4),order-l); 
displace(57,:) = potyfit{125iiil96(:;2),125ml96{:,4),order-l); 
displace(58,:) = polyfit(125ml97(:,2),125ml97(:,4),order-l); 
displace(59,:) = polyfit(125iiil98(:,2),125ml98(:,4),order-l); 
displace(60,;) = polyfit(125ml99(:,2),125inl99(:,4),order-l); 

displace(61,:) = polyfit(125ni200(:,2),125m200(:,4),order-l); 
end 


97 









clearinvoke = 1; 
add_throat_condition = 1; 
gam = 1.4; 

TbTt = zeros(numcurve,l); 
pl^ = zeros(numcurve, I); 

AbAs = zeros(numcurve,l); 

M= 1.4:.01:2; 
for c = 1 ;length(M) 

TbTt(c) = l./(l+(((gam-l)/2).*M(c).^2)); 
pbpt(c) = TbTt(c).''(gam/(gam-l)); 

AbAs(c) = (l./M(c)).*( (l+(((gam-l)/2).*M(c).^2))./((gam+l)/2) ).'^((gam+l)/(2*(gam-l))); 
end 


TiJt = 0; 

Tx = 0; 

WallM=l; 

Dispt = .00001; 

Blay = .00001; 

MT = WallM; 

TbTtT = 1./(1-K((gam-1)/2).*MT.''2)); 
pbptT = TbTtT.*(gam/(gam-l)); 

%extract isentropic throat height 


isoTheight(l) = (max(125ml40(:,5))-max(125ml40(:,4)))/AbAs(l); 
isoTheight(2) = (max(125ml41(:,5))-niax(125ml41(:,4)))/AbAs(2); 
isoTheight(3) = (niax(125ml42C,5))-max(125ml42(:,4)))/AbAs(3); 
isoTheight(4) = (max(125ml43(;,5))-max(125ml43(;,4)))/AbAs(4); 
isoTheight(5) = (max(125ml44(:,5))-max(125ml44(:,4)))/AbAs(5); 
isoTheight(6) = (niax(125ml45(:,5))-niax025ml45(:,4)))/AbAs(6); 
isoTheight(7) = (max(125ml46(:,5))-max(125ml46(:,4)))/AbAs(7); 
isoTheight(8) = (max(125ml47(;,5))-max(125ml47(:,4)))/AbAs(8); 
isoTheight(9) = (max(125ml48(:,5))-maxa25ml48(:,4)))/AbAs(9); 
isoTheight(10) = (max(125ml49(:,5))-niax(125ml49(:,4)))/AbAs(10); 


isoTheight(l 1) 
isoTheight(12) 
isoTheight(13) 
isoTheight(14) 
isoTheigfat(15) 
isoTheight(16) 
isoTheight(17) 
isoTheight(18) 
isoTbeight(19) 
isoTheight(20) 
isoTheight(21) 
isoTheight(22) 
isoTheight(23) 


(niax(125ml50( 

(ina}^5ml51( 

(iiiax(l25ml52( 

(inax^5ml53( 

(]iiax(125ml54( 

(iiiax^5ml55( 

(inax(125ml56( 

(max^5ml57( 

(max(125ml58( 

(max(125ml59( 

(max(125ml60( 

(max(125ml61( 

(max(l2Sml62( 


,5))-max(125ml50( 
,5))-max(125ml51( 
,5))-max(125ml52( 
,5))-max(125ml53( 
,5))-niax(125ml54( 
,5))-max025ml55( 
,5))-inax(125ml 56( 
,5))-max025ml57( 
,5))-inax(125ml58( 
,5))-max(125ml59( 
,5))-niax(125ml60( 
,5))-inax(125ml61( 
,5))-max(125ml62( 


,4)))/AbAs(ll); 

,4)))/AbAs(12); 

,4)))/AbAs(13); 

,4)))/AbAs(14); 

,4))yAbAs(15); 

,4)))/AbAs(16); 

,4))yAbAs{17); 

,4))yAbAs(18); 

,4))yAbAs(19); 

,4))yAbAs(20); 

,4))yAbAs(21); 

,4))yAbAs(22); 

,4))yAbAs(23); 
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isoTheight(24) = (niax{125ml63(;,5))-inax(125ml63(;,4)))/AbAs(24); 
isoTheight(25) = (inax(125ml64(;,5))-inax(125ml64(:,4)))/AbAs(25); 
isoTheight(26) = (!nax(125ml65(:,5))-inax(125ml65(:,4)))/AbAs(26); 
isoTheight(27) = (iiiax(125ml66(:,5))-max(125ml66(:,4)))/AbAs(27); 
isoTheight(28) = (max(125ml67(:,5))-iiiax(125ml67(:,4)))/AbAs(28); 
isoTheight(29) = (maxa25ml68(;,5))-inaxa25ml68(:,4)))/AbAs(29); 
isoTheight(30) = (iiiax(125ml69(;,5))-inax(125ml69(:,4)))/AbAs(30); 

isoTheight(31) = (max(125ml70(:,5))-iiiax(125ml70(:,4)))/AbAs(31); 
isoTheight(32) = (niax(125ml71(:,5))-max(I25ml71(:,4)))/AbAs(32); 
isoTheight(33) = (max(125ml72(;,5))-max(125ml72(:,4)))/AbAs(33); 
isoTheight(34) = (max(125ml73(:,5))-max(125ml73(:,4)))/AbAs(34); 
isoTheight(35) = (max(125ml74(:,5))-max^5ml74(:,4)))/AbAs(35); 
isoTheight(36) = (iiiax(125ml75(:.5))-inax(125ml75(:,4)))/AbAs(36); 
isoTheight(37) = (iiiax(125inl76(:,5))-iiiax(125ml76(;,4)))/AbAs(37); 
isoTheight(38) = (iiiax(125ml77(:,5))-max(125ml77(:,4)))/AbAs(38); 
isoTheight(39) = (inax(125ml78(:,5))-inaxa25ml78(;,4)))/AbAs(39); 
isoTheight(40) = (iiiax(125ml79(:,5))-max(125ml79(:,4)))/AbAs(40); 

isoTheight(41) = (iiiax(125ml80(:,5))-inax(125ml80(:,4)))/AbAs(41); 
isoTheight(42) = (inax(125ml81(:,5))-niax^5ml81(;,4)))/AbAs(42); 
isoTheight(43) = (iiiax(125ml82(:,5))-inax(125ml82(:,4)))/AbAs(43); 
isonieight(44) = (inaxa25ml83(:,5))-inax(125ml83(:,4)))/AbAs(44); 
isoTheight(45) = (niax(125ml84(:,5))-inax(125ml84(;,4)))/AbAs(45); 
isoTheight(46) = (inax(125ml85(:,5))-inax(125ml85(;,4)))/AbAs(46); 
isoTheight(47) = (iiiax(125ml86(:,5))-inax(125ml86(:,4)))/AbAs(47); 
isoTheight(48) = (inax(125ml87(:,5))-inax(125ml87(:,4)))/AbAs(48); 
isoTheight(49) = (iiiax(125ml88(:,5))-iiiax(125ml88(:,4)))/AbAs(49); 
isoTheight(50) = (niax(125ml89(:,5))-inax(125ml89(:,4)))/AbAs(50); 

isoThdght(51) = (iiiax(125ml90(:,5))-iiiax(125ml90(:,4)))/AbAs(51); 
isoTheight(52) = (max(125ml91(:,5))-max(125ml91(:,4)))/AbAs(52); 
isoTheight(53) = (niax^5ml92(:,5))-iiiax^5ml92(:,4)))/AbAs(53); 
isoTheight(54) = (niax(125ml93(;,5))-maxa25ml93(:,4)))/AbAs(54); 
isoTheight(55) = (inax(125ml94(:,5))-inax(125ml94(:,4)))/AbAs(55); 
isoTheight(56) = (iiiax(125ml95(:,5))-i!iax(125ml95(:,4)))/AbAs{56); 
isoTheight(57) = (iiiax(125ml96(:,5))-iiiax(125ml%(:,4)))/AbAs(57); 
isoTheight(58) = (inax(125ml97(;,5))-inax(125ml97(:,4)))/AbAs(58); 
isoTheight(59) = (iiiax(125ml98(:,5))-max(125ml98(:,4)))/AbAs(59); 
isoTheight(60) = (niax(125ml99(:,5))-inax(125ml99(:,4)))/AbAs(60); 

isoTheight(61) = (inax(125in20(H:,5))-max(125iii200(:,4)))/AbAs(61^ 


%extTact first x value of real data 

first_x(l) = 125ml40(l,2);first_x(2) = 125ml41(l,2);first_x(3) = 125inl42(l,2); 
first_x(4) = 125ml43(l,2);first_x(5) = 125ml44(l,2);first_x(6) = 125ml45(l,2); 
first_x(7) = 125ml46(l,2);first_x(8) = 125ml47(l,2);first_x(9) = 125ml48(l,2); 
first_x(10) = 125ml49(l,2);first_x(ll) = 125ml50(l,2);first_x(12) = 125ml51(l,2); 
first_x(13) = 125ml52(l,2);fiffst_x(14) = 125ml53(l,2);first_x(15) = 125ml54(l,2); 
first_x(16) = 125ml55(l,2);first_x(17) = 125ml56(l,2);first_x(18) = 125ml57(l,2); 
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first_x(19) = 125ml 58(1,2);first_x(20) = 125ml59(l,2);first_x(21) = 125ml60(l,2); 
first_x(22) = 125ml61(l,2);first_x(23) = 125ml62(l,2);first_x(24) = 125ml63(l,2); 
first_x(25) = 125ml64(l,2);first_x(26) = I25ml65(l,2);first_x(27) = 125ml66(l,2); 
first_x(28) = 125ml67(l,2);first_x(29) = 125ml68(l,2);first_x(30) = 125ml69(l,2); 
first_x(31) = 125ml70(l,2);first_x(32) = 125ml71(12,2);first_x(33) = 125ml72(l,2); 
first_x(34) = 125ml73(l,2);first_x(35) = 125ml74(l,2);first_x(36) = 125ml75(l,2); 
first_x(37) = 125ml76(17,2);first_x(38) = 125ml77(l,2);first_x(39) = 125ml78(l,2); 
first_x(40) = 125ml79(l,2);first_x(41) = 125ml80(l,2);first_x(42) = 125ml81(l,2); 
first_x(43) = 125ml82(l,2)4irst_x(44) = 125ml83(l,2);first_x(45) = 125ml84(l,2); 
first_x(46) = 125ml85(l,2);first_x(47) = 125ml86(l,2);first_x(48) = 125ml87(l,2); 
first_x(49) = 125ml88(l,2);first_x(50) = 125ml89{l,2);first_x(51) = 125ml90(l,2); 
first_x(52) = 125ml91(l,2);first_x(53) = 125ml92(l,2);first_x(54) = 125ml93(l,2); 
first_x(55) = 125ml94(l,2);first_x(56) = 125ml95(l,2);fiist_x(57) = 125ml96(l,2); 
first_x(58) = 125ml97(l,2);first_x(59) = 125ml98(l,2);first_x(60) = 125ml99(l,2); 
first_x(61) = 125m200(l,2); 


if add_throat_condition 

125ml40 = [Tpt Tx WallM Dispt (inax(125ml40(:,5))-max(125ml40(:,4)))/AbAs(l) Bl^ Dispt 
pbptT;125ml40]; 

125ml41 = [Tpt Tx WallM Dispt (iiiax(125ml41(;,5)>niax(I25ml41(;,4)))/AbAs(2) Blay Dispt 
pbptT;125ml41]; 

125ml42 = [Tpt Tx WallM Diqjt (max(125ml42(:,5))-ttiax(125ml42(:,4)))/AbAs(3) Blay Dispt 
pbptT;125ml42]; 

125ml43 = [Tpt Tx WallM Dispt (max{125ml43(:,5))-max(125ml43(:,4)))/AbAs(4) Blay Dispt 
pbptT;125ml43]; 

125ml44 = [Tpt Tx WallM Dispt (inax(125ml44(:,5))-inax(125ml44{:,4)))/AbAs(5) Blay Dispt 
pt^T;125ml44]; 

125ml45 = [Tpt Tx WallM Dispt (iiiax(125ml45(:,5))-max(125ml45(:,4)))/AbAs(6) Blay Dispt 
pbptT;125ml45]; 

125ml46 = [Tpt Tx WallM Dispt (iiiax(125ml46{:,5))-max(125ml46(:,4)))/AbAs(7) Blay Dispt 
pbptT;125ml46]; 

125ml47 = [Tpt Tx WallM Dispt (iiiax(125ml47(:,5))-max(125ml47(:,4)))/AbAs{8) Blay Dispt 
pl^T;125ml471; 

125ml48 = [Tpt Tx WallM Dispt (max(125ml48{:,5))-max(125ml48{:,4)))/AbAs(9) Blay Dispt 
pt^>tT;125ml48]; 

125ml49 = [Tpt Tx WallM Dispt {inax(125ml49(:,5))-max(125ml49(:,4)))/AbAs(10) Bl^ Dispt 
pbptT;125ml49]; 

125ml50 = [Tpt Tx WallM Diqjt {max(125ml50(:,5))-max(125ml50(:,4)))/AbAs(l 1) Bl^ Dispt 
pbptT;125ml50]; 

125ml51 = [Tpt Tx WallM Di^ (inax(125ml51(:,5))-max(125ml51(:,4)))/AbAs{12) Blay Dispt 
pbptT;125ml51]; 

125ml52 = [Tpt Tx WallM Dispt (inax(125ml52(:,5))-max(125ml52(;,4)))/AbAs(13) Blay Dispt 
pbptT;125ml52]; 

125ml53 = [Tpt Tx WallM Dispt (inax(125ml53(:,5))-max(125ml53(:,4)))/AbAs(14) Bl^ Dispt 
pbptT;125ml53]; 

125ml 54 = [Tpt Tx WallM Dispt (max(125ml54(;,5)>max(125ml54(:,4)))/AbAs(15) Blay Dispt 
pbptT;125ml541; 

125ml55 = [Tpt Tx WallM Dispt (max(125ml55(;,5))-max(125ml55(:,4)))/AbAs(16) Blay Dispt 
pl:^T;125ml55]; 
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125ml56 = [Tpt Tx WallM Dispt (max(125ml56(;,5))-max(125ml56(:,4)))/AbAs(17) Blay Dispt 
pbptT;125ml56]; 

125ml57 = [Tpt Tx WallM Dispt (max(125mI57(:,5))-max(125ml57(;,4)))/AbAs(18) Blay Dispt 
pl^T;125ml57]; 

125ml58 = [Tpt Tx WallM Dispt (max(125ml58(:,5))-max(125ml58(:,4)))/AbAs(19) Blay Dispt 
pbptT;125ml58]; 

125ml59 = [Tpt Tx WallM Dispt (max(125ml59(:,5))-max(125ml59(:,4)))/AbAs(20) Blay Dispt 
pbptT;125ml59]; 

125ml60 = [Tpt Tx WallM Dispt (inax(125inl60(;,5))-niax(125ml60(:,4)))/AbAs(21) Blay Dispt 
pl^T;125ml60]; 

125ml61 = [Tpt Tx WallM Dispt (inax(125ml61(:,5))-niax(125ml61(:,4)))/AbAs(22) Bl^ Dispt 
pMT;125ml61]; 

125ml62 = [Tpt Tx WallM Dispt (inax(125inl62(:,5))-niax(125ml62(;,4)))/AbAs(23) Bl^ Dispt 
pl^T;125ml62]; 

125ml63 = [Tpt Tx WallM Dispt (max(125inl63(:,5))-niax(125ml63(:,4)))/AbAs(24) Blay Dispt 
pl^T;125ml63]; 

125ml64 = [Tpt Tx WallM Dispt (inax(125ml64(:,5))-niax(125ml64(:,4)))/AbAs(25) Bl^ Dispt 
plqrtT;125ml64]; 

125ml65 = [Tpt Tx WallM Dispt (inax(125inl65(:,5))-max(125ml65(:,4)))/AbAs(26) Blay Dispt 
pl^T;125ml65]; 

125ml66 = [Tpt Tx WallM Dispt (inax(125ml66(:,5))-niax(125ml66(:,4)))/AbAs(27) Blay Dispt 
pbptT;125ml66]; 

125ml67 = [Tpt Tx WallM Dispt (inax(125ml67(:,5))-niax(125inl67{:,4)))/AbAs(28) Bl^ Dispt 
pl^tT;125ml67]; 

125ml68 = [Tpt Tx WallM Dispt (max(125ml68(:,5))-max(125ml68(:,4)))/AbAs(29) Bl^ Dispt 
pl^T;125ml68]; 

125ml69 = [Tpt Tx WallM Dispt (inax(125ml69(:,5))-inax(125inl69(:,4)))/AbAs(30) Blay Dispt 
pl^T;125ml69]; 

125ml70 = [Tpt Tx WallM Dispt (iiiax(125ml70(:,5))-max(125ml70{:,4)))/AbAs(31) Bl^ Dispt 
pl^tT;125ml70]; 

125ml71 = [Tpt Tx WallM Dispt (max(125ml71(:,5))-max(125inl71(:,4)))/AbAs(32) B% Dispt 
pl^T;125ml71]; 

125ml72 = [Tpt Tx WallM Dispt (inax{125inl72(:,5))-niax(125ml72(:,4)))/AbAs(33) Bl^ Dispt 
pbptT;125ml72]; 

125ml73 = [Tpt Tx WallM Dispt (max(125ml73(;,5))-niax(125ml73(:,4)))/AbAs(34) Bl^ Dispt 
pl^T;125ml73]; 

12501174 = [Tpt Tx WallM Dispt (iiiax(125ml74(;,5))-max(125ml74(:,4)))/AbAs(35) Bl^ Dispt 
pbptT;125ml74]; 

125ml75 = [Tpt Tx WallM Dispt (max(125ml75(:,5))-inax(125ml75(;,4)))/AbAs(36) Bl^ Dispt 
pl:^T;125ml75]; 

125ml76 = [Tpt Tx WallM Dispt (inax(125ml76(:,5))-max(125ml76(:,4)))/AbAs(37) Blay Dispt 
pl^T;125ml76]; 

125ml77 = [Tpt Tx WallM Dispt (inax(125ml77(:,5))-niax(125ml77(:,4)))/AbAs(38) Blay Di^ 
pl^JtT;125inl77]; 

125ml78 = [Tpt Tx WallM Dispt (inax(125inl78(:,5))-max(125inl78(:,4)))/AbAs(39) Bl^ Dispt 
pl^T;125ml78]; 

125ml79 = [Tpt Tx WallM Dispt (max(125ml79(:,5))-niax(125inl79(:,4)))/AbAs(40) Bl^ Dispt 
pbptT;125ml79]; 
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125ml80 = [Tpt Tx WallM Dispt (max(125ml80(:,5))-max(125ml80(;,4)))/AbAs(41) Blay Dispt 
pl:^T;125ml80]; 

125inl81 = [Tpt Tx WallM Dispt (inax(125ml81(:,5))-max(125ml81(;,4)))/AbAs(42) Blay Dispt 
I*ptT;125ml81J; 

125ml82 = [Tpt Tx WallM Dis{rt (inax(125ml82(:,5))-inax(125ml82(:,4)))/AbAs(43) Blay Dispt 
pbptT;125ml82]; 

125ml83 = [Tpt Tx WallM Disj^ (iiiax(125ml83(:,5))-inax(125ml83(:,4)))/AbAs(44) Blay Dispt 
pbptT;125ml83]; 

125ml84 = [Tpt Tx WallM Dispt (max(125ml84(:,5))-max(125ml84(;,4)))/AbAs(45) Blay Dispt 
pbptT;125ml84]; 

125ml85 = [Tpt Tx WallM Disj^ (max(125ml85(:,5))-max(125ml85(;,4)))/AbAs(46) Blay Dispt 
pbptT;125ml85]; 

125inl86 = [Tpt Tx WallM Dispt (max(125ml86{:,5))-inax(125ml86(:,4)))/AbAs(47) Blay Dispt 
pbptT;125ml86]; 

125ml87 = [Tpt Tx WallM Disi* (max(125ml87(:,5))-max(125ml87(:,4)))/AbAs(48) Bl^ Dispt 
pbptT;125ml87]; 

125ml88 = [Tpt Tx WallM Dispt (inax(125ml88(;,5))-niax(125ml88(;,4)))/AbAs(49) Blay Dispt 
pbptT;125inl881; 

125ml89 = [Tpt Tx WallM Dispt (max(125ml89(:,5))-max(125ml89(;,4)))/AbAs(50) Bl^ Dispt 
pbptT;125ml89]; 

125ml90 = [Tpt Tx WallM Dispt (max(125mi90(:,5))-maxa25ml90(:,4)))/AbAs(51) Bl^ Dispt 
pbptT;125ml90]; 

125ml91 = [Tpt Tx WallM Dispt (inax(125ml91(;,5))-max(125ml91(:,4)))/AbAs(52) Blay Dispt 
pbptT;125ml91]; 

125inl92 = [Tpt Tx WallM Dispt (inax(125ml92(:,5))-max(125ml92(:,4)))/AbAs(53) Blay Dispt 
pl^T;125ml92]; 

t25ml93 = [Tpt Tx WallM Dispt (inax(125ml93(:,5))-niax(125ml93(:,4)))/AbAs(54) Blay Dispt 
pl:^T;125ml93]; 

125ml94 = [Tpt Tx WallM Dispt (max(125inl94(:,5))-max(125ml94(:,4)))/AbAs(55) Bl^ Dispt 
pl:^T;125ml94]; 

125inl95 = [Tpt Tx WallM Dispt (inax(125ml95(;,5))-inax(125ml95(:,4)))/AbAs(56) Blay Dispt 
plqjtT;125ml95]; 

125ml96 = [Tpt Tx WallM Dispt (iiiax(125ml%(;,5))-niax(125ml%(;,4)))/AbAs{57) Blay Dispt 
pbptT;125ml%]; 

125ml97 = [Tpt Tx WallM Dispt (iiiax(125ml97(:,5))-inax(125ml97(:,4)))/AbAs<58) Blay Dispt 
pbptT;125inl97]; 

125ml9&= [Tpt Tx WallM Dispt (iiiax(125ml98(:,5))-inax(125ml98(:,4)))/AbAs(59) Blay Dispt 
pbptT;125inl98]; 

125nil99 = [Tpt Tx WallM Dispt (inax(125ml99(:,5))-iiiax(125ml99(:,4)))/AbAs(60) Blay Dispt 
pl^T;125ml99]; 

125II1200 = [Tpt Tx WallM Dispt (inax(125m200(:,5))-niax(125m200(:,4)))/AbAs(61) Blay Dispt 

pbptT;125m200]; 

end 


contour(l,:) = polyfit(125ml40(:,2),125nil40(:,5),order-l); 
contour(2,:) = polyfit(125ml41(:,2),125ml41(:,5),order-1); 
contour(3,:) = po^t(125ml42{:,2X125ml42(:,5),order-l); 
contour(4,;) = polyfit(125ml43(:,2),125ml43(:,5),order-1); 
contour(5,:) = polyfit(125ml44(:,2),125ml44(:,5),order-1); 
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contoiir(6,:) = polyfit(I25inl45(;,2),125inl45(:,5),order-1); 
contour(7,:) = polyfit(125inl46(:,2),125ml46(;,5),order-1); 
contour(8,:) = pol^t(125ml47(:,2),125ml47(:,5),order-l); 
contoiir(9,:) = polyfit(125ml48(;,2),125inl48(:,5),order-l); 
contour(10,:) = polyfit(125ml49(:,2),125inl49(:,5),order-l); 

contour(ll,:) = polyfit(125ml50(:,2),125ml50(:,5),order-l); 
contour! 12,:) = polj^t(125ml51(:,2),125ml51(:,5),order-l); 
contour(13,:) = polyfit(125ml52(:,2),125ml52(:,5),order-1); 
contour(14,:) = polyfit(125ml53(:,2),125ml53(:,5),order-l); 
contour(15,:) = polyfit(125ml54(;,2),125inl54(:,5),order-l); 
contour(16,:) = pol)^t(125ml55(:,2),125ml55(:,5),order-l); 
contour(17,:) = polyfit(125ml56(:,2),125ml56(:,5),order-l); 
contour(18,:) = polyfit(125inl57(:,2),125ml57(:,5),order-l); 
contour(19,;) = polyfit025ml58(:,2),125ml58(:,5),order-l); 
contour(20,:) = pol^t(125inl59(:,2),125ml59(:,5),order-l); 

contour(21,:) = polyfit{125inl60(;,2),125inl60(:,5),order-l); 
contour(22,;) = polyfit(125ml61(:,2),125ml61(;,5),order-l); 
contour(23,:) = pol^t(125inl62(:,2),125inl62(:,5),order-l); 
contour(24,:) = polyfit(125ml63(:,2),125ml63(:,5),order-l); 
contour(25,:) = po^t(125ml64(:,2),125ml64(:,5),or<fcr-l); 
contour(26,:) = polyfit(125ml65(:,2),125ml65(:,5),order-l); 
contour(27,:) = polyfit(125nil66{:,2),125ml66(:,5),order-l); 
contour(28,:) = polyfit(125inl67(:,2),125ral67(:,5),order-l); 
contour(29,:) = pol^t^5ml68(:,2),125ml68(:,5),order-l); 
contour(30,:) = polyfit025inl69(:,2),125ml69(;,5),order-l); 

contour(31,:) = polyfil(125ml70(:,2),125ml70(:,5),order-l); 
contour(32,:) = polyfit(125ml71(:,2),125ml71(:,5),order-l); 
contour(33,:) = pol}«t(125nil72(:,2),125ml72(:,5),order-l); 
contour(34,:) = polyfit(125ml73(:,2),125ml73(:,5),order-l); 
contour(35,:) = pol^t(125ml74(:,2),125ml74(:,5),order-l); 
contour(36,:) = polyfit(125ml75(:,2),125ml75(:,5),order-l); 
contour(37,;) = po^t(125ml76(:,2),125ml76{:,5),order-l); 
contour(38,:) = pol^t025ml77(:,2),125ml77(:,5),order-l); 
contour(39,;) = polyfit(125ml78(:,2),125inl78(:,5),order-l); 
contour(40,;) = polyfitfl25ml79(:,2),125ml79(;,5),order-l); 

contour(41,;) = polyfit(125nil80(:,2),125ml80(:,5),order-l); 
contour(42,:) = po^t(125inl81(:,2),125ml81(:,5),order-l); 
contour(43,:) = polyfit(125inl82(:,2),125ml82(;,S),order-l); 
contour(44,:) = polyfit(125ml83(:,2),125ml83(:,5),order-1); 
contour(45,:) = po^t^5ml84(:,2),125ml84(;,3),or(kr-l); 
contour(46,:) = pol^t025nil85(:,2),125ml85(;,5),order-l); 
contour(47,:) = poljrfit(125inl86(;,2),125ml86(:,5),order-l); 
contour(48,:) = pol^t(125inl87(:,2),125ml87{:,5),order-l); 
contour(49,:) = po^t(125ml88(:,2),125inl88(:,5),order-l); 
contour(50,;) = polyfitG25ml89(:,2),125ml89(:,5),order-l); 

contour(51,:) = polyfit(125ml90(:,2),125inl90(:,5),order-l); 
contour(52,:) = polyfit025ml91(:,2),125ml91(:,5),order-l); 
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contour(53,;) = polyfit(125ml92(:,2),125ml92(;,5),order-1); 
contour(54,:) = polyfit(125ml93(:,2),125inl93(:,5),order-l); 
contour(55,;) = polyfit025ml94(:,2),125inl94(:,5),order-1); 
contour(56,;) = polyfit(125ml95(:,2),125ml95(:,5),order-1); 
contour(57,:) = polyfit(125ml96(:,2),125inl96{:,5),order-1); 
contour(58,:) = pol^t(125ml97(:,2),125ml97(:,5),order-1); 
contour(59,:) = polyfit(125tnl98(:,2),125ml98(:,5),order-l); 
contour(60,;) = polyfit(125ml99(:,2),125ml99(:,5),order-1); 

contour(61,:) = polyfit(125iii200(:,2),125m200(;,5),order-l); 


blayer(l,:) = polyfit(125ml40(:,2),125ml40(:,6),order-l); 
blayer(2,:) = polyfit(125ml41(:,2),125ml41(:,6),order-l); 
blayer(3,:) = polyfit(125ml42(:,2),125ml42(:,6),order-l); 
blayer(4,;) = polyfit(125ml43(:,2),125ml43{:,6),order-l); 
blayer(5,:) = polyfit025ml44(:,2),125ml44(:,6),order-l); 
blayer(6,:) = pol^t(125ml45(:,2),125ml45(:,6),order-l); 
blayer(7,:) = polyfit(125ml46(:,2),125ml46(:,6),order-l); 
blayer(8,:) = pol^t(125ml47(:,2),125nil47(:,6),order-l); 
blayer(9,:) = polyfit(125ml48(:,2),125ml48(:,6),order-l); 
blayer(10,:) = polyfit(125inl49(:,2),125ml49(:,6),order-l); 

blayer(ll,:) = polyfit(125inl50(;,2),125inl50(:,6),order-1); 
blayer(12,:) = polyfit(125ml51(:,2),125ml51(;,6),order-l); 
blayer(13,:) = polyfita25ml52(;,2),125ml52(:,6),order-l); 
bl^er(14,:) = po^t(125inl53(:,2),125ml53(:,6),order-1); 
blayer(15,:) = polyfit(125ml54(:,2),125ml54(:,6),order-1); 
bl^er(16,:) = po^t(125inl55(;,2),125ml55(:,6),order-1); 
blayer(17,;) = polyfit(125ml56(;,2),125ml56(:,6),order-1); 
bl^er(18,:) = polyfit(125ml57(:,2),125ml57(;,6),order-1); 
blayer(19,:) = polyfit(125ml58(:,2),125ml58(:,6),order-1); 
blayer(20,:) = polyfit(125inl59(;,2),125ml59(:,6),order-1); 

blayer(21,:) = polyfit(125ml60(:,2),125ml60(:,6),order-l); 
bl^er(22,;) = polyfit(125ml61(:,2),125ml61(:,6),order.l); 
blayer(23,:) = polyfit025ml62(;,2),125ml62(:,6),order-1); 
bl^er(24,:) = polyfit(125ml63(:,2),125ml63(:,6),order-l); 
blayer(25,;) = polyfit(125ml64(:,2),125iiil64(:,6),order-1); 
blayer(26,:) = polyfit(125ml65(:,2),125ml65(:,6),order-1); 
blayer(27,;) = polyfit025ml66(:,2),125ml66(;,6),order-1); 
bl4'er(28,:) = po^t^5inl67(;,2),125ml67C,6),onier-l); 
blayer(29,:) = polyfit(125ml68(:,2),125ml68(:,6),order-1); 
blayer(30,;) = polyfit^5inl69(:,2),125ml69(:,6),order-l); 

blatyer(31,;) = polyfit(125inl70(:,2),125ml70(;,6),order-l); 
blayer(32,;) = pol^t(125ml71(:,2),125ml71(:,6),order-1); 
blayer(33,:) = polyfit(125ml72(:,2),I25ml72(:,6),order-l); 
blayer(34,:) = polyfit025ml73(;,2),125ml73(;,6),order-1); 
blayer(35,:) = po^t(125inl74(;,2),125ml74(:,6),order-1); 
blayer(36,:) = polyfit(125ml75(:,2),125ml75(;,6),order-l); 
blayer(37,;) = polyfit(125ml76{:,2),125ml76(:,6),order-1); 
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blayer(38,:) = polyfit(125ml77(:,2),125inl77(:,6),order-l); 
blayer(39,:) = ix)l^t025ml78(:,2),125inl78(:,6),order-1); 
blayer(40,:) = polyfit(125ml79(:,2),125inl79(:,6),order-l); 

blayer(41,:) = polyfit(125ml80(:,2),I25ml80(;,6),order-1); 
blayer(42,:) = polyfit(125ml81(:,2),125ml81(;,6),order-1); 
blayer(43,:) = polyfit(125ml82(:,2),125ml82(:,6),order-1); 
blayer(44,:) = polj4it(125inl83(:,2),125inl83(:,6),order-1); 
blayer(45,:) = polyfit(125ml84(:,2),125ml84(;,6),order-1); 
blayer(46,:) = polyfit(125ml85(:,2),125ml85(;,6),order-1); 
blayer(47,:) = polyfit(125ml86(;,2),125ml86(;,6),order-l); 
blayer(48,:) = pol^t(125inl87(:,2),125ml87(:,6),order-1); 
blayer(49,:) = polyfit(125ml88(;,2),125ml88(:,6),order-l); 
blayer(50,:) = polyfit(125inl89(:,2),125ml89(:,6),order-1); 

blayer(51,:) = polyfit(125ml90(;,2),125inl90(:,6),order-1); 
blayer(52,;) = polyfit(125ml91(:,2),125ml91(:,6),order-1); 
blayer(53,:) = polyfit(125ml92(:,2),125ml92(:,6),order-1); 
blayer(54,:) = polyfit(125ml93(:,2),125ml93(:,6),order-1); 
blayer(55,:) = polyfit(125iiil94(;,2X125ml94(:,6),order-1); 
blayer(56,:) = pofyfit(125inl95(:,2),125inl95(:,6),order-1); 
blayer(57,:) = polyfit(125nil96(:,2),125ml96(:,6),oider-l); 
blayer(58,:) = polyfit(125ml97(;,2),125ml97(:,6),order-1); 
blayer(59,:) = polyfit(125nil98(:,2),125ml98(:,6),oider-l); 
blayer(60,:) = polyfita25ml99(:,2),125inl99(;,6),order-1); 

blayer(61,:) = polyfit(125in200(:,2),125m200(:,6),order-1); 

%pressure data 

pressure(l,:) = polyfit(125ml40(:,2),125ml40(:,8),order-l); 
pressure(2,:) = pol>'fit(125ml41(:,2),125ml41(:,8),order-l); 
pressure(3,:) = po^t(125ml42(:,2),125ml42(:,8),order-l); 
pressure(4,:) = polyfit(125ml43(:,2),125ml43(:,8),order-l); 
{»essure{5,;) = polyfit(125inl44(:,2),125inl44(:,8),order-l); 
pressure(6,:) = polylit(125ml45(:,2),125ml45(:,8),orcfer-l); 
ptessure(7,:) = pofyfit(125ml46(:,2),125ml46(:,8),order-l); 
pressure(8,;) = polyfit(125ml47(:,2),125inl47(:,8),order-l); 
IM'essuie(9,:) = polyfit(125inl48(:,2),125ml48(:,8),order-l); 
pressure(10,:) = polyfit(125ml49(:,2),125ml49(;,8),order-l); 

IHessure(l 1,:) = polyfit(125ml50(:,2),125inl50(:,8),order-l); 
pressure(12,:) = po^t(125ml51(:,2),125ml51(:,8),order-l); 
pressure(13,:) = pdyfit(125ml52(:,2),125ml52(:,8),order-l); 
pressure(14,:) = polyfit(125ml53(:,2),125ml53(:,8),order-l); 
pressure(15,:) = polyfit^5ml54(:,2),125ml54(:,8),order-l); 
pressure(16,:) = polyfit(125inl55(:,2),125ml55(:,8),order-l); 
IHessure(17,;) = po^t(125ml56(:,2),125ml56(:,8),order-l); 
pressure(18,;) = polyfit(125ml57(:,2),125ml57(:,8),order-l); 
pressuie(19,:) = pol^t(125inl58(:,2),125ml58(:,8),order-l); 
pressure(20,:) = polyfit(125inl59(:,2),125ml59(:,8),order-l); 
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pressure(21,;) = polyfit(125ml60(:,2),125jnl60(.%8),order-l); 
pressure(22,:) = polyfit(125ml61(;,2),125ml61(:,8),order-1); 
pressure(23,:) = polyfit(125ml62(:,2),125ml62(:,8),order-1); 
pressure(24,:) = polyfit(125ml63(:,2),125ml63(:,8),order-1); 
pressure(25,:) = polyfit(125inl64(:,2),125nil64(:,8),order-l); 
pressure(26,:) = polyfit(125ml65(:,2),125nil65(;,8),order-l); 
pressure{27,:) = polyfit{125iiil66(:,2),125inl66(:,8),order-l); 
pressure(28,;) = polyfit(125ml67(:,2),125ml67(;,8),order-l); 
pressure(29,:) = polyfit(125ml68(;,2),125ml68(:,8),order-1); 
pressure(30,:) = polylit(125ml69(:,2),125ml69(:,8),order-1); 

pressure(31,:) = polyfit(125ml70(:,2),125ml70(:,8),order-l); 
pressure(32,:) = polyfit(125ml71(:,2),125ml71{:,8),order-l); 
pressure(33,;) = polyfit(125inl72(:,2),125nil72(:,8),order-l); 
pressure(34,;) = polyfit(125ml73(:,2),125ml73(;,8),order-l); 
pressure(35,:) = poljfit(125ml74(:,2),125ml74(;,8),order-l); 
pressure(36,:) = polyfit(125ml75(:,2),125inl75(:,8),order-l); 
pressure(37,:) = pol^t(125ml76(:,2),125inl76(:,8),order-l); 
pressure(38,:) = polyfit(125ml77(:,2),125ml77{:,8),order-1); 
pressure(39,:) = pol^t(125inl78(:,2),125inl78(;,8),order-1); 
pressure(40,:) = polyfit(125ml79(:,2),125ml 79(:,8),order-l); 

pressure(41,:) = polyfit(125ml80(:,2),125ml80(:,8),order-l); 
pressure(42,:) = polyfit(125ml81(;,2),125ml81(;,8),order-l); 
pressure(43,:) = pol^t(125ml82(:,2),125ml82(:,8),order-l); 
pressure(44,;) = polyfit(125ml83(;,2),125ml83(;,8),order-1); 
pressure(45,:) = pol^t(125ml84(:,2),125ml84(:,8Xorder-l); 
pressure(46,:) = polyfit(125ml85(:,2),125ml85{:,8),or&r-l); 
pressure{47,;) = po^t(125ml86(:,2),125ml86(:,8),order-1); 
pressure{48,:) = polyfit(125ml87(:,2),125ml87(:,8),order-1); 
I»essure(49,:) = pol^t(125ml88(:,2),125ml88(;,8),order-1); 
pressure(50,:) = polyfit(125ml89(:,2),125ml89(:,8),order-l); 

pressiire(51,;) = polyfit(125ml90(:,2),125ml90(;,8),order-l); 
pressure(52,:) = polyfit(125ml91(:,2),125ml91(:,8),order-l); 
pressure(53,:) = polyfit025ml92(:,2),125ml92(:,8),order-l); 
pressuie(54,;) = polyfit(125ml93(:,2),125ml93(:,8),order-1); 
pressure(55,;) = polyfit(125ml94(:,2),125ml94(;,8),or<ter-l); 
IHessure(56,:) = po^t(125ml95(:,2),125ml95(:,8),order-l); 
pressure(57,:) = pol^t(125ml96(:,2),125ml96(:,8),order-1); 
pressure(58,:) = polyfit(125ml97(:,2),125ml97(:,8),order-1); 
pressure(59,;) = polyfit(125ml98(:,2),125ml98(:,8),order-1); 
pressure(60,;) = pdyfit(125ml99(;,2),125ml99(:,8),order-l); 

pressure(61,:) = polyfit(125iii200(;,2),125m200(:,8),order-l); 


%temperatiire data 
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if clearinvoke 

clear 125ml40;clear 125ml41;clear 125nil42;clear 125nil43;clear 125ml44;clear 125ml45 
clear 125inl46;clear 125ml47;clear 125inl48;clear 125ml49;clear 125ml50;clear 125ml51 
clear 123ml52;clear 125nil53;clear 125nil54;clear 125ml55;clear 125ml56;clear 125ml57 
clear 125ml58;clear 125ml 59;clear 125ml60;clear 125ml61;clear 125ml62;clear 125ml63 
clear 125ml64;clear 125ml65;clear 125ml66;clear 125ml67;clear 125ml68;clear 125ml69 
clear 125ml70;clear 125ml71;clear 125ml72;clear 125ml73;clear 125ml74;clear 125ml75 
clear 125ml76;clear 125ml77;clear 125ml78;clear 125ml79;clear 125ml80;clear 125ml81 
clear 125ml82;clear 125ml83;clear 125ml84;clear 125ml85;clear 125ml86;clear 125ml87 
clear 123ml88;clear I25ml89;clear 125ml90;clear 125ml91;clear 125ml92;clear 125ml93 
clear 125ml94;clear 125ml95;clear 125ml96;clear 125ml97;clear 125ml98;clear 125ml99 
clear 123m200 
end 

save polyspot 


function derivative = <fydx(f_of_x) 

%function derivative = dydx(f_of_x) 

%Takes a polynomial of any order and 
%retums the derivative. 

% f_of_x is a vector in the form: 

% [a b c... d] 

% where 

% f(x) = a*x''n + b*x^(n-l) + c*x^(n-2) + ... d 

[numr,numc] = size(f_of_x); 
derivative = zeros(numr,nunic); 

for r= l:munr 

derivative(r,l) = 0; 

forc = numc;-l:2 

derivative(r,c) = f_af_x(r,c-l) * (numc+l-c); 

end 

end 


function contoorjength = lenfind(contour,nom_points,curve_start,curve_end) 

%function contour_length = lenfind(contour,num_points,curve_start,curve_end) 
%Finds the lengths at a series of curves described by the 
%niatrix of polynomials, 'contour*, numjmints is the 
%number of points to be used for the length determination. 

%curve_start and curve_end specify curve start and end points 
%respectively. 
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[nuinr,numc] = size(contour); 
contourjength = zeros{numr,l); 


X = linspace(curve_start,curve_end,nxun_points); 

for r= Itnumr 

y = polyval(contoiir(r,:),x); 
contour_length(r) = curvlen(x,y); 


function len = curvlen(x,y) 

%fiinction len = curvlen(x,y) 

%Finds the length of a curve described 
%in X, y coordinates, x and y are vectors 
%containing x and y coordinate pairs 
%Method used is simple summation of 
%linear distance between points. 

%The more data points us^ along the 
%curve, the more accurate the length 
“/(Calculation 

xlen = length(x); 
len = 0; 

for count = 1 :xlen-l 

len = len + sqrt(((x(count+l)-x(count)r2)+((y(count+l)-y(count)r2)); 
end 


function (X,fixed_contour] = conforce(contour,contour_length,numj)omts,curve_start,curve_end) 

%function pCfixed_contour] = conforce(contour,contour_length,num_points,curve_start,curve_end) 

%Takes series of shapes describes by matrix of polynimials 

%'contour' and forces all of the lengths to be eq^ to 

%contour_length. Number of points along curve is specified 

%in num_points. curve_end and curve_start specify curve 

%start and end points respectively. 

%Strategy used is to fix end of curve specified by 
%curve_end. Then iteratively move the start point 
%(curve_start) and reevaluate the curve length until 
%a tolerance with the specified contour length is 
%achieved. Because of the extremely small degree of 
%movement invoved with the start point (~.04 compared to 
%a length of ~25) this extrapolation was considered 
%resonably safe. 

[numr,numc] = sizefcontour); 
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maxit =300; %maximum iteration allowed per curve 

tol = .0005; %tolerance of evaluated curve to contour length 

step_size = .00005; %stcpping interval in moving the start point. 

%X and fixed_contour are matices storing x and y values 
%respectivley, of the forced length contours. 

X = zeros(numr,numjx)ints); 
fixed_contour = zeros(numr,num_points); 

move_end = curve^end; 
move_start = curve_start; 

for r= numr>l:l 
r 

for iter = l:maxit 

X = lin^ce(move_start,move_end,nunijpoints); 
y = polyval(contour(r,:),x); 
len = curvlen(x,y); 
if abs(len-contour length) < tol 
X(r,:) = x; 

fixed_contour(r,:) = y; 

% move_start 

break 

else 

%move_end = move_end + step_size; 
move_start = move__start - step_size; 
end 

end 

%ter 

if iter = maxit;disp('Maxit Reached*);end 
end 


function tranpoly = findttp(xtyt,Sxt,Cxt,SCxt,xi,yi,Sxi,Cxi,SCxi) 

%function tranpoly = findttp(xt,yt,Sxt,Cxt,SCxt,xi,yi,Sxi,Cxi,SCxi) 
%5ubspoly foa^by: 

% Ax=B where tranpoly = x 

%BC's Y at throat and entrance, slop^ at throat and entrance 
%curvature at throatand entrance 
%specily third derivative at the entrance to ensure 
%continuous second derivative 


B1 = [yt;Sxt;Cxt;yi;Sxi;Cxi;SCxi]; 


A1 = [xt'^6 xt^5 xtM xt^3 xt'^2 xt 1; 


109 



6*xt^5 5*xt''4 4*xt''3 3*xt''2 2*xt 1 0; 

30*xt''4 20*xt''3 12*xt''2 6*xt 2 0 0; 

xi^ xi^'S xiM xi*3 xi''2 xi 1; 

6*xi''5 5*xiM 4*xi''3 3*xi^2 2*xi 1 0; 

30*(xir4 20*(xi)^3 12*(xir2 6*xi 2 0 0; 

120*xi^3 60*xi''2 24*xi 6 0 0 0]; 

%tranpoly = A1\B1; 

Y at throat and entrance, slope at throat and entrance 
%curvature at throat and entrance 

%specily third derivative at the throat and entrance to ensure 
%continuous second derivative 


B2 = (yt;Sxt;Cxt;SCxt;yi;Sxi;Cxi;SCxi]; 

A2 = [xt'^7 xt'^ xt'^S xtM xt''3 xt''2 xt 1; 
7*xt^ 6*xt^5 S^xtM 4*xt''3 3*xt''2 2*xt 1 0; 

42*xt^5 30*xt^4 20*xt''3 12*xt''2 6*xt 2 0 0; 

210*xt''4 120*xt^3 60*xt''2 24*xt 6 0 0 0; 

xi^7 xi'^ xi'^S xi''4 xi^3 xi''2 xi 1; 

7*xi^ 6*xi''5 5*xiM 4*xi''3 3*xi^2 2*xi 1 0; 

42*xi^5 30*(xir4 20*(xir3 12*(xir2 6*xi 2 0 0; 

210*xiM 120*xi'^3 60*xi'^2 24*xi 6 0 0 0]; 

tranpoly = A2\B2; 


iiinction [x,y,yp,yH),yR)p] =exposhp(xi,xt,yi,Sxi,yt,Sxt,Cxt,SCxt,b,nuniSpts); 

%function Ix,y,yp,ypp,ynpp] = exposhp(xi,xt,yi,Sxi,yt,Sxt,Cxt,SCxt,b,numSpts); 
%&nds exponential faction to descrite subsonic shape 
%also fin^ first three derivatives of function 

A= -Cxt.*((xt-xi).^2)./(yi-yt); 

B = SCxt *((xt-xi).^3)./(yi-yt); 

%t = [linspace(l,0,nuinSpts)]; 

t = [logspace(l,0,nuniSpts*(l/3)) linspace(.99,0,numSpts*(2/3))]; 
z = 1 - exp(-b.*t); 


al = (.A./2)*b^2; %./((z./(b.*(l-z))).''2) 

a2 = ((B*b^3>+(6*al*b))/(-6); %./((z./(b ♦(l-z))).''3); 

f=ej?)( (-ain.''2)-(a2*t.''3) ); 

fslope = (I/b).*( (-2*al*tH3*a2*t.^2) )*(exp( (-al*t.''2) - (a2*t.''3) + (bn) )); 
fcurve = ((l/b)^2)*( (-2*al)+(((-6*a2)-(2*al*b))n)+(((4*al.''2)- 

(3*a2*b))n.''2)+{12*al*a2n.''3)+(9*a2.''2n.M)) ♦(exp( (-ain.''2) - (a2n.^3) + (2*bn) )); 
fslope_curve = ((l/b)^3)*( ((-6*a2)-(6*al*b))+(((12*al^2)-(18*a2*b)- 
(4*al*b^2))n)+(((54*al*a2)+(12*b*al''2)-(6*a2*b^2))n.'"2)+(((54*a2^2)+(48*al*a2*b)- 
(8*al^3))*t.''3)+(((-36*a2*al''2)-K27*b*a2''2))*t.M)+((-54*al*a2''2)n.'^5)+((-27*a2^3)*t.''6) ).*(exp( 

(-ain.'^2)-(a2n.''3) + (3n)n) )); 
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X = (xt - (z.*(xt-xi))); 

y = yi - f*(yi-yt); 

yp = fslope*(yi-yt)./(xt-xi); 

yR) = -fcurve*(yi-yt)./((xt-xi).''2); 

y^jp = fslope_curve*(yi-yt)./((xt-xi).^3); 

%plot(t,z,t4;':'); 

^<«ubplot(3,l,3); 

®/<^)lot(x,y); 

%axis([-15.1,-14.9,4.5,5.51); 


function [x_for_s,y_for_s,c_ind] = fin(fc^(x,y,s_dini); 

%function [x_for_s,y_for_s] = findxy(x,y,s_dim); 

%finds the x and y values for a given distance 
%along a curve specified in s dim 

[numr,numc] = size(x); 

xfors = zeros(niunr,length(s_dim)); 
y_for_s = zen)s(nunu-,length(s_dim)); 
clen = zeros(numr,length(s_dim)); 
c_ind = zeros(nunir,length(s_dim)); 

for s_dim_count = l:length(s_dim) 

%s_dim_count=10; 
length(s_dim)- s_dini_count 

for r= linumr 
len = 0; 

for c = numc-l:-l:l 

len = len + sqrt(((x(r,c+l)-x(r,c))^2)+({y(r,c+l)-y(r,c)y'2)), 
if len > s_dim(s_dim_count); 
gt_x = x(r,c+l);lt_x = x(r,c); 
gt_y = y(r,c+l);lt_y = y(r,c); 

% [gt_x lt_x gt_y h_y len] 

dist_gtjt = (sqrt(((gt_x-h_x)''2)+((gt_y-lt_y)''2))); 
linratio = (len - s_dim(s_dini_count))/dist_gt_lt; 
x_for_s(r,s_dim_count) = lt_x + (lin_ratio*abs(gt_x-lt_x)); 
if lt_y < gt_y 

y_for_s(r,s_dim_count) = lt_y + (lin_ratio*abs(gt_y-lt_y)); 
elseif lt_y > gt_y 

y_for_s(r,s_dim_count) = lt_y - (lin_ratio*abs(gt_y-lt_y)); 
else 

y_for_s(r,s_dim_count) = lt_y; 
end 


c_md(r,s_dini_count) = c; 
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clen(r,s_dim_count) = len - sqrt(((lt_x-x_for_s(r,s_dim_count))^2)+((lt_y- 
y_for_s(r,s_dim_count))^2)); 
break 


end 

end 

end 

end 


function out = savespec(hoiz_dini,fixed_contour) 

%function out = savespec(horz_dim,fixed_contour) 
%dununy fimction to save specific variable to a file 
out = 0; 
savespecspot 

function out = savespel(x_for_s,y_for_s,c_ind) 

out = 0; 
savespecspol 


The jack pivot points were determined firom the layout of the nozzle medianism. The 
coordinates of the pivot point and the geometry associated with each nozzle shape was used to 
determine a jack laigth programming schedule for each Mach number. This schedule is shown in 
Table 5. 
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Mach Number 

18 (in) 

Jack Mounting Point Measured Along the Lenght of the Curve 

15 (in) 12.25 (in) 9 (in) 6 (in) 3 (in) 0(in) -3.5 (in) 

-6.5 (in) 

1.4 


7.2837 

7.3292 

7.4015 

7.4776 

7.5553 

7.6061 

7.5268 

7.1384 

1.41 

7.2459 

7.2872 

7.335 

7.4101 

7.4881 

7.5668 

7.6178 

7.5384 

7.1498 

1.42 

7.2474 

7.2908 

7.3409 

7.4187 

7.4988 

7.5785 

7.6296 

7.5501 

7.1613 

1.43 

7.2489 

7.2944 

7.347 

7.4276 

7.5097 

7.5905 

7.6417 

7.5621 

7.173 

1.44 

7.2505 

7.2982 

7.3532 

7.4366 

7.5207 

7.6026 

7.6539 

7.5743 

7.1848 

1.45 

7.^2 

7.3018 

7.3593 

7.4456 

7.5317 

7.6147 

7.6663 

7.5866 

7.1968 

1.46 

7.2536 

7-3056 

7.3656 

7.4548 

7.543 

7.627 

7.6787 

7.599 

7.2089 

1.47 

7.2551 

7.3094 

7.3719 

7.4641 

7.5543 

7.6395 

7.6913 

7.6115 

7.2211 

1.48 

7.2567 

7.3133 

7.3784 

7.4736 

7.5659 

7.6521 

7.7041 

7.6242 

7.2335 

1.49 

7.2583 

7.3171 

7.3849 

7.483 

7.5775 

7.6648 

7.7169 

7.6369 

7.246 

1.5 

7.2599 

7.3211 

7.3915 

7.4927 

7.5893 

7.6777 

7.7299 

7.6498 

7.2586 

1.51 

7.2614 

7.325 

7.398 

7.5023 

7.601 

7.6905 

7.743 

7.6628 

7.2713 

1.52 

7.2631 

7.3289 

7.4047 

7.5121 

7.613 

7.7036 

7.7562 

7.676 

7.2841 

1.53 

7.2646 

7.3329 

7.4114 

7.5219 

7.625 

7.7167 

7.7694 

7.6892 

7.297 

1.54 

7.2662 

7.3369 

7.4182 

7.5318 

7.6371 

7.73* 

7.7828 

7.7024 

7.31 

1.55 

7.2678 

7.3408 

7.4249 

7.5418 

7.6493 

7.7433 

7.7962 

7.7158 

7.3231 

1.56 

7.2694 

7.3448 

7.4317 

7.5518 

7.6615 

7.7566 

7.8097 

7.7292 

7.3362 

1.57 

7.2709 

7-3488 

7.4386 

7.5619 

7.6739 

7.7701 

7.8234 

7.7428 

7.3495 

1.58 

7.2726 

7.3529 

7.4455 

7.5721 

7.6863 

7.7837 

7.8371 

7.7564 

7.3628 

1.59 

7.2741 

7.3568 

7.4523 

7.5822 

7.6987 

7.7972 

7.8508 

7.77 

7.3761 

1.6 

7.2757 

7.3609 

7.4593 

7.5925 

7.7113 

7.8109 

7.8646 

7.7837 

7.3896 

1.61 

7.2773 

7.3649 

7.4663 

7.6028 

7.7239 

7.8247 

7.8785 

7.7975 

7.4031 

1.62 

7.2789 

7.369 

7.4732 

7-6132 

7.7365 

7.8385 

7.8924 

7.8114 

7.4166 

1.63 

7.2804 

7.3729 

7.4801 

7.6234 

7.7491 

7.8522 

7.9064 

7.8252 

7.4302 

1.64 

7.282 

7.377 

7.4872 

7.6339 

7.7619 

7.8662 

7.9204 

7.8392 

7.4439 

1.65 

7.2836 

7.381 

7.4942 

7.6443 

7.7747 

7.8801 

7.9344 

7.8531 

7.4575 

1.66 

7.2851 

7.385 

7.5011 

7.6548 

7.7874 

7.894 

7.9485 

7.8671 

7.4712 

1.67 

7.2866 

7.3889 

7.5081 

7.6652 

7.8002 

7.908 

7.9626 

7.8811 

7-4849 

1.68 

7.2881 

7.3929 

7.5151 

7.6757 

7.8131 

7.9219 

7.9767 

7.8952 

7.4987 

1.69 

7.2897 

7.3969 

7.5221 

7.6862 

7.826 

7.936 

7.9909 

7.9003 

7.5125 

1.7 

7.2912 

7.4009 

7.5291 

7.6967 

7.8389 

7.9501 

8.0051 

7.9234 

7.5263 

1.71 

7.2927 

7.4047 

7.536 

7.7072 

7.8517 

7.9641 

8.0193 

7.9374 

7.5401 

1.72 

7.2942 

7.4086 

7.543 

7.7177 

7.8646 

7.9782 

8.0335 

7.9515 

7.554 

1.73 

7.2958 

7.4126 

7.5499 

7.7283 

7.8776 

7.9923 

8.0478 

7.9^ 

7.5679 

1.74 

7.2972 

7.4165 

7.5569 

7.7388 

7.8905 

8.0064 

8.062 

7.9798 

7.5817 

1.75 

7.2987 

7.4203 

7.5638 

7.7493 

7.9034 

8.0205 

8-0762 

7.9939 

7.5956 

1.76 

7.3002 

7.4241 

7.5707 

7.7598 

7.9163 

8.0346 

8.0904 

8.008 

7.6094 

1.77 

7.3016 

7.4279 

7.5775 

7.7703 

7.9292 

8.0487 

8.1046 

8.0221 

7.6232 

1.78 

7.3031 

7.4317 

7.5844 

7.7808 

7.9421 

8.0627 

8.1188 

8.0363 

7 6371 

1.79 

7.3045 

7.4354 

7.5911 

7.7913 

7.955 

8.0768 

8.133 

8.0503 

7.6509 

1.8 

7.3059 

7.4392 

7.5979 

7.8017 

7.9679 

8.0908 

8.1471 

8.0644 

7.6647 


Table 5. Jack Screw Program (Length from Pivot Point to Jack Mount Eyelet) 
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Table 5. (coot) Jack Screw Program (Length from Pivot Point to Jack Mount Eyelet) 

Figure 22 shows the jack mount and jack pivoti)oint geometry. The length specified in 
Table 5 was caUed d3 in Figure 22. The thickness of the plate was .25 indies. The distance fi-csn 
the center of the jack-mount eyelet to the mi^oint of the attachmait surfece betweai the mounting 
fixture and the plate (d2) was .5 indies. The coordinates (xl, yl) and (x3, y3) were known fi-om 
the individual Madi contour solutions and Ae pivot point was found using AutoCad. The slope of 
Ae COTitoiu- at Ae jack-mounting point was also known from Ae aerodynamic analysis. From Ae 
geometry, Ae foUowing relations a^qilied, 

0 = taii-'^ (28) 

dx 

and 

dl = — (29) 

COS0 

so Aat Ae jade loigA was given by 
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d3 = 




Yi- 


( 


( _,dy^ 

coa tan — 

I dxj 


+ C09 


tan 


V 


dx. 


X,- 


X, -d2sin 


-idy' 


tan" 

dx^ 


( 30 ) 


JACK 

>IVOT 

>OINT 




(Xj ,yi) -COORDINATES OF JACK MOUNTING POINT 
(XjJj) -COORDINATES OF JACK MOUNT EYELET(CENTER) 

(X3.y3)-COORDINATES OF PIVOT POINT(CENTER) 
dl -DISTANCE FROM JACK MOUNTING POINT TO 
CENTER OF JACK MOUNT FIXTURE ATTACHMENT 
d2 -DISTANCE FROM CENTER OF JACK MOUNT FIXTURE 
TO CENTER OF JACK MOUNT EYELET 
d3 -DISTANCE FROM CENTER OF JACK MOUNT EYELET 
TO JACK PIVOT POINT 

d3 t -THICKNESS OF FLEXIBLE PLATE(.25 INCHES) 

0 -LOCAL ANGLE OF INCLINATION 




\x2.y2) 

JACK 

MOUNT 

EYELET 



/dl 

V 




JACK MOUNTING 
POINT 

y . .....1 

0 

FLEXIBLE 

PLATE 


SECTION 


Figure 22. Jack Mount Geometry 

The diapes generated and their derivatives are shown in Figures 23 through 28. The blue 
and cyan curves r^resait the method of characteristics soluticai. The greai and magenta curves 
rq)resent the throat transition polynomial. The yeUow and red ciurves rq)resa]t the parameterized 
e?qKxiential solutions for the subscnic section. 
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Figure 23. Nozzle Shapes, Mach 1.4 - 2 in Steps of .1 
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Figure 24. Nozzle Shapes (Throat Detail) 
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Figure 28. Curvature Variation (Throat Detail) 


1 

The following MATLAB script file was used to convert one specific shape into a .dxf 
formatted file which was then imported into AutoCad™. 


function [shapex,shapey] = makedxfl(curvelx,curvely,curve2x,curve2y,curve3x,curve3y) 

%function [shapex,shapey] = makedxfl(curvelx,curvely,curve2x,curve2y,curve3x,curve3y) 
shapex= tcurvelx(l:length(curvelx)-l) curve2x(l:length(curve2x)-l) curve3x(l;length(curve3x))]; 
shapey = [curvely(l:length(curvely)-l) curve2y(i:length(curve2y)-l) curve3y(l:length(curve3y))]; 
shapez = zeros(length(shapex)); 

diary dxffilel.dxf 
dispC O’); 
disp('SECTION'); 
dispC 2'); 
disp('ENTITIES'); 
dispC O’); 

for r = l;length(shapex)-l 

disp(’LINE’) 
dispC 8’); 








dispCO-); 
dispC 10*); 

disp(nuin2str(shapex(r))); 

disp(’20’); 

disp(mim2str(shapey(r))); 
dispC 30’); 

disp(niun2str(shapez(r))); 
dispC ii*); 

disp(niun2str(shapex(r+1))); 
dispC 21*); 

disp(nviin2str(shapey(r+1))); 
dispC 31’); 

di^num2str(shapez(r+1))); 
disp(’ O’); 

end 

disp(’ENDSEC’); 
dispC O’); 

disp(’EOTO; 

diary off 


The following list contains the range of'x' values for the supersmic contour shapes and the 
coefficients for the ninth order polynomials used to fit the method of characteristics solution. The 
rows represent the foUowing information; row 1, starting x value, row 2, aiding x value, rows 3 
through 12, the coefificiaits for the polynomials arranged in decreasing order of x. 


Mach 1.4 

0.30487800000000 

25.00000000000000 

-0.00000000000039 

0.00000000003593 

-0.00000000128954 

0.00000002268543 

-0.00000031673950 

0.00001060931799 

-0.00030767740282 

0.00356896347146 

0.01036963014123 

2.39254386433153 


Mach 1.41 
0.30698300000000 
25.00000000000000 
-0.00000000000052 
0.00000000005038 
-0.00000000195624 
0.00000003905141 
-0.00000054225768 
0.00001216533775 
•0.00031162037178 
0.00361692134664 
0.01027272558865 
2.38085840987376 


Mach 1.42 
0.30917200000000 
25.00000000000000 
-0.00000000000063 
0.00000000006329 
-0.00000000254174 
0.00000005317353 
-0.00000073238856 
0.00001339527013 
-0.00031380756585 
0.00366012403665 
0.01018167020439 
2.36901983237482 


Mach 1.43 Mach 1.44 Mach 1.45 

0.31140200000000 0.31366300000000 0.28841700000000 
25.00000000000000 25.00000000000000 25.00000000000000 


122 



-0.00000000000079 

0.00000000008042 

-0.00000000332465 

0.00000007232162 

-0.00000099878504 

0.00001533101967 

-0.00031987382943 

0.00371560926355 

0.01007130498266 

2.35695808825769 

Mach 1.46 
0.28974400000000 
25.00000000000000 
-0.00000000000085 
0.00000000008346 
-0.00000000323703 
0.00000006275248 
-0.00000070465675 
0.00001035146575 
-0.00027530851652 
0.00368843928134 
0.00998223083302 
2.32007529715504 

Mach 1.49 
0.2%88800000000 
25.00000000000000 
-0.00000000000150 
0.00000000015319 
-0.00000000632121 
0.00000013584493 
-0.00000169492047 
0.00001743703419 
-0.00029664268280 
0.00385431462164 
0.00966331961739 
2.28191068774307 

Mach 1.52 
0.27664300000000 
25.00000000000000 
-0.00000000000176 
0.00000000017530 
-0.00000000699489 
0.00000014279534 
-0.00000161753561 
0.00001418752820 
-0.00025938377252 
0.00384630119301 
0.00954644481201 
2.24276154074788 


-0.00000000000094 

0.00000000009710 

-0.0000(X)00407783 

0.00000009045023 

-0.00000124494040 

0.00001701960420 

-0.00032407111129 

0.00376364348956 

0.00997430481370 

2.34475198617514 

Mach 1.47 
0.29206300000000 
25.00000000000000 
-0.00000000000107 
0.00000000010728 
-0.00000000429965 
0.00000008817331 
-0.00000105302843 
0.00001290081701 
-0.00028358176890 
0.00374734334853 
0.00987158008618 
2.30749571342674 


-0.00000000000071 

0.00000000006876 

-0.00000000260165 

0.00000004821542 

-0.00000052013729 

0.00000927857827 

-0.00027469785820 

0.00365082028944 

0.01006735763084 

2.33253627935510 

Mach 1.48 
0.29446500000000 
25.00000000000000 
-0.00000000000129 
0.00000000013070 
-0.00000000534177 
0.00000011303886 
-0.00000139250703 
0.00001535861412 
-0.00029119567559 
0.00380364598357 
0.00976527127038 
2.29471417425332 


Mach 1.5 

0.29939400000000 

25.00000000000000 

-0.00000000000170 

0.00000000017399 

-0.00000000722261 

0.00000015674181 

-0.00000197097139 

0.00001930707895 

-0.00030112008897 

0.00390246882854 

0.00956509118123 

2.26891603674968 

Mach 1.53 
0.27918200000000 
25.00000000000000 
-0.00000000000199 
0.00000000020025 
-0.00000000807111 
0.00000016773093 
-0.00000194954128 
0.00001651945367 
-0.00026589018358 
0.00389942754204 
0.00944167762570 
2.22949152409276 


Mach 1.51 
0.27412600000000 
25.00000000000000 
-0.00000000000153 
0.00000000015248 
-0.00000000602322 
0.00000012068919 
-0.00000133112828 
0.00001229409064 
-0.00025526448089 
0.00380030462750 
0.00964100619507 
2.25594809559862 

Mach 1.54 
0.28174400000000 
25.00000000000000 
- 0.00000000000221 
0.00000000022174 
-0.00000000896659 
0.00000018766152 
-0.00000220163930 
0.00001809848976 
-0.00026826073347 
0.00394049997622 
0.00935259087113 
2.21613450557234 
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Mach 1.55 
0.28338000000000 
25.00000000000000 
-0.00000000000246 
0.00000000024780 
-0.00000001006719 
0.00000021260645 
-0.00000252650374 
0.00002031337952 
-0.00027385044272 
0.00399064632048 
0.00925039111459 
2.20271324637669 


Mach 1.56 Mach 1.57 
0.28603200000000 0.26268500000000 
25.00000000000000 25.00000000000000 
-0.00000000000268 -0.00000000000254 
0.00000000027040 0.00000000025100 
-0.00000001100498 -0.00000000989894 
0.00000023343172 0.00000019995372 
-0.00000279030807 -0.00000219848007 
0.00002198293484 0.00001552627024 
-0.00027651068091 -0.00023410598677 
0.00403218982340 0.00394202454920 
0.00916039567695 0.00921789656670 
2.18920812968315 2.17567066614398 


Mach 1.58 
0.26534000000000 
25.00000000000000 
-0.00000000000276 
0.00000000027260 
-0.000000010777% 
0.00000021912552 
-0.00000243808900 
0.00001700659621 
-0.00023595638461 
0.00398227815474 
0.00912716490314 
2.16195425587554 


Mach 1.59 
0.26805700000000 
25.00000000000000 
-0.00000000000299 
0.00000000029502 
-0.00000001168352 
0.00000023869348 
-0.00000267950408 
0.00001845972995 
-0.00023731405288 
0.00401983617789 
0.00904226666279 
2.14825895758319 


Mach 1.6 

0.26982300000000 

25.00000000000000 

-0.00000000000314 

0.00000000030938 

-0.00000001223583 

0.00000024992460 

-0.00000280622336 

0.00001897665289 

-0.00023424980819 

0.00404670138369 

0.00896602406560 

2.13443501752049 


Mach 1.61 
0.27262700000000 
25.00000000000000 
-0.00000000000332 
0.00000000032647 
-0.00000001288482 
0.00000026299065 
-0.00000295387191 
0.000Q1964323575 
-0.00023178457084 
0.00407455210629 
0.00889099255891 
2.12055484161548 


Mach 1.62 
0.27539700000000 
25.00000000000000 
-0.00000000000352 
0.00000000034506 
-0.00000001360871 
0.00000027812014 
-0.00000313570039 
0.00002065257791 
-0.00023131584013 
0.00410900008659 
0.00880503344092 
2.10663669008140 


Mach 1.63 
0.25283500000000 
25.00000000000000 
-0.00000000000340 
0.00000000032700 
-0.00000001253315 
0.00000024502323 
-0.00000255091258 
0.00001431411398 
-0.00018972440783 
0.00402238927113 
0.00885488291605 
2.09278871729892 


Mach 1.64 
0.25474600000000 
25.00000000000000 
-0.00000000000347 
0.00000000033179 
-0.00000001263724 
0.00000024514372 
-0.00000251991322 
0.00001351524872 


Mach 1.65 Mach 1.66 

0.25756100000000 0.26043800000000 
25.00000000000000 25.00000000000000 
-0.00000000000358 -0.00000000000375 
0.00000000034113 0.00000000035673 
-0.00000001292313 -0.00000001348808 
0.00000024931217 0.00000026018553 
-0.00000254488739 -0.000002663853% 
0.00001321138741 0.00001368069134 
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-0.00018015200596 

0.00403172334353 

0.00879961972700 

2.0787103359%13 

Mach 1.67 
0.26332700000000 
25.00000000000000 
-0.00000000000384 
0.00000000036333 
-0.00000001364642 
0.00000026120092 
-0.00000264365394 
0.00001298315785 
-0.00016088721127 
0.00408668996271 
0.00859844742915 
2.03653555498925 

Mach 1.7 

0.24646200000000 

25.00000000000000 

-0.00000000000365 

0.00000000032999 

-0.00000001159720 

0.00000019943031 

-0.00000160610756 

0.00000208338408 

-0.00008745640961 

0.00399179118679 

0.00855642674655 

1.99405514434684 

Mach 1.73 
0.23044900000000 
25.00000000000000 
-0.00000000000315 
0.00000000026392 
-0.00000000809604 
0.00000010375576 
-0.00000011974151 
-0.00001223952308 
0.00000089954521 
0.00386284347096 
0.00854522257184 
1.95148514118891 

Mach 1.76 
0.73115200000000 
25.00000000000000 
-0.00000000000276 
0.00000000021046 


-0.00017326610129 

0.00404939042714 

0.00873338477807 

2.06467700409960 


-0.00016993040949 

0.00407554643649 

0.00865695416657 

2.05062203394949 


Mach 1.68 
0.24154300000000 
25.00000000000000 
-0.00000000000354 
0.00000000032535 
-0.00000001169564 
0.00000020779843 
-0.00000179171954 
0.00000463354617 
-0.00011081501021 
0.00398224721625 
0.008661865281% 
2.02246317798176 

Mach 1.71 
0.57120200000000 
25.00000000000000 
-0.00000000000350 
0.00000000031054 
-0.00000001060669 
0.00000017338067 
-0.00000121744040 
-0.00000156576692 
-0.00006470462722 
0.003%887640257 
0.00853486167102 
1.97989987924680 

Mach 1.74 
0.23340400000000 
25.00000000000000 
-0.00000000000312 
0.00000000025672 
-0.00000000761947 
0.00000008956106 
0.00000010502035 
-0.00001452004022 
0.00001713123827 
0.00385599112212 
0.00850527373802 
1.93725695672591 

Mach 1.77 
0.24145000000000 
25.00000000000000 
■0.00000000000248 
0.00000000017625 


Mach 1.69 
0.24353600000000 
25.00000000000000 
-0.00000000000356 
0.00000000032382 
-0.00000001146980 
0.00000019921606 
-0.00000163438863 
0.00000279347477 
-0.00009628881908 
0.00397939599436 
0.00861817067718 
2.00826400121888 

Mach 1.72 
0.25233500000000 
25.00000000000000 
-0.00000000000352 
0.00000000030926 
-0.00000001039945 
0.00000016560685 
-0.00000107916689 
-0.00000317580302 
-0.00005145657334 
0.00396907367233 
0.00848848318859 
1.96567205197434 

Mach 1.75 
0.23636700000000 
25.00000000000000 
-0.00000000000281 
0.00000000022012 
-0.00000000586849 
0.00000004567423 
0.00000073228577 
-0.00002001838535 
0.00004808142566 
0.00381374060300 
0.00850294689879 
1.92302080705842 

Mach 1.78 
0.22121500000000 
25.00000000000000 
- 0.00000000000212 
0.00000000013153 
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-0.00000000528124 

0.00000002896956 

0.00000098774870 

-0.00002250623826 

0.00006515418718 

0.00380475610384 

0.00846561034919 

1.90880202954196 

Mach 1.79 
0.22419500000000 
25.00000000000000 
-0.00000000000166 
0.00000000007951 
0.00000000109020 
-0.00000013350243 
0.00000335515567 
-0.00004352597656 
0.00018263181317 
0.00360839813407 
0.00851809289663 
1.86624810443883 

Mach 1.82 
0.23237400000000 
25.00000000000000 
-0.00000000000073 
-0.00000000003338 
0.00000000656279 
-0.00000027056223 
0.00000528747734 
-0.00006009413638 
0.00027463080010 
0.00348390663282 
0.00850316237497 
1.82372054427473 

Mach 1.85 
0.21887200000000 
25.00000000000000 
0.00000000000097 
-0.00000000022773 
0.00000001564213 
-0.00000049319601 
0.00000839959464 
-0.00008629425151 
0.00041216585533 
0.00324592636295 
0.00858998925428 
1.78148237107564 

Mach 1.88 


-0.00000000358548 

-0.00000001458841 

0.00000162094414 

-0.00002812337211 

0.00009703626872 

0.00375919344771 

0.00846601389274 

1.89458995411688 

Mach 1.8 

0.22723000000000 

25.00000000000000 

-0.00000000000146 

0.00000000005325 

0.00000000241678 

-0.00000016759945 

0.00000384378118 

-0.00004782691814 

0.00020779008975 

0.00358014074349 

0.00849938246594 

1.85205084177772 

Mach 1.83 
0.21283800000000 
25.00000000000000 
0.00000000000007 
-0.00000000012360 
0.00000001075060 
-0.00000037381061 
0.00000675594008 
•0.00007266792091 
0.00034013046303 
0.00335354318196 
0.00857480446534 
1.80966869642700 

Mach 1.86 
0.22105600000000 
25.00000000000000 
0.00000000000147 
-0.00000000028478 
0.00000001830939 
-0.00000055816741 
0.00000929475902 
-0.00009371648931 
0.00045116877200 
0.00318423992953 
0.00860487443485 
1.76742756094007 

Mach 1.89 


-0.00000000134352 

-0.00000007363572 

0.00000251399413 

-0.00003635242146 

0.00014401123203 

0.00366989969037 

0.00849964369472 

1.88044200605437 

Mach 1.81 
0.23021900000000 
25.00000000000000 
-0.00000000000107 
0.00000000000777 
0.00000000458495 
-0.00000022133016 
0.00000459662058 
-0.00005421106596 
0.00024233450915 
0.00352950860502 
0.00850402535290 
1.83786997797765 

Mach 1.84 
0.21587900000000 
25.00000000000000 
0.00000000000041 
-0.00000000016425 
0.00000001270925 
-0.00000042251014 
0.00000743650867 
-0.00007844138786 
0.00037194918565 
0.00330805391202 
0.00857634114151 
1.79555632201802 

Mach 1.87 
0.22410000000000 
25.00000000000000 
0.00000000000227 
-0.00000000037386 
0.00000002234051 
-0.00000065422462 
0.00001060001132 
-0.00010430892528 
0.00050409953520 
0.00309037501330 
0.00865343799705 
1.75340058444018 

Mach 1.9 
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0.20828300000000 

25.00000000000000 

0.00000000000359 

-0.00000000052345 

0.00000002923945 

-0.00000082076817 

0.00001288269872 

-0.00012303475262 

0.00059964121406 

0.00292649434315 

0.00870313013421 

1.72556273019463 

Mach 1.92 
0.21651200000000 
25.00000000000000 
0.00000000000579 
-0.00000000076723 
0.00000004025622 
-0.00000108088414 
0.00001635503263 
-0.00015063604%3 
0.00073668436913 
0.00270001716722 
0.00878668592128 
1.68396840086963 

Mach 1.95 
0.20357000000000 
25.00000000000000 
0.00000000000867 
-0.00000000108309 
0.00000005438070 
-0.00000141209353 
0.00002076095863 
-0.00018539275437 
0.00090494144104 
0.00240342019763 
0.00891342884216 
1.64285854681983 


0.21048600000000 

25.00000000000000 

0.00000000000458 

-0.000000(X)063115 

0.00000003406015 

-0.00000093446544 

0.00001441211544 

-0.00013527349131 

0.00065946017562 

0.00281712099547 

0.00876515158660 

1.71164952108481 

Mach 1.93 
0.19837700000000 
25.00000000000000 
0.00000000000680 
-0.00000000087837 
0.00000004526261 
-0.00000119943167 
0.00001795283732 
-0.00016341724179 
0.00079882961895 
0.00258774565854 
0.00882584868898 
1.67027656635207 

Mach 1.96 
0.20659300000000 
25.00000000000000 
0.00000000000944 
-0.00000000116770 
0.00000005815319 
-0.00000149942911 
0.00002189481554 
-0.00019410579766 
0.00094722965117 
0.00233665922268 
0.00893315465024 
1.62924137147161 


0.20524200000000 

25.00000000000000 

0.00000000000287 

-0.00000000044259 

0.00000002556226 

-0.00000073331863 

0.00001170503269 

-0.00011358527639 

0.00055249312556 

0.00300575354258 

0.00867075440334 

1.73951638482135 

Mach 1.91 
0.21347500000000 
25.00000000000000 
0.00000000000518 
-0.00000000069943 
0.00000003717712 
-0.00000100838461 
0.00001539754093 
-0.00014310108807 
0.00069884796130 
0.00275665586437 
0.00877833286899 
1.69777733870189 

Mach 1.94 
0.20054500000000 
25.00000000000000 
0.00000000000792 
-0.00000000100035 
0.00000005067587 
-0.00000132587529 
0.00001963425136 
-0.00017666929551 
0.00086240817420 
0.00247040236890 
0.00889486424476 
1.65653654636131 

Mach 1.97 
0.20%1500000000 
25.00000000000000 
0.00000000001046 
-0.00000000127875 
0.00000006304389 
-0.00000161186891 
0.00002335210160 
-0.00020524183134 
0.00099974917057 
0.00224746995878 


Mach 1.98 
0.19130600000000 
25.00000000000000 
0.00000000001176 
-0.00000000141855 
0.00000006921066 
-0.00000175495874 
0.00002523957031 
-0.00021992049914 
0.00106839921452 
0.00212502462661 


Mach 1.99 
0.19426500000000 
25.00000000000000 
0.00000000001266 
-0.00000000151686 
0.00000007354887 
-0.00000185448151 
0.00002652073182 
-0.00022964618008 
0.00111462376334 
0.00204942217505 
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0.00897343118596 0.00901390855776 0.00904291552541 
1.61565643102735 1.60223414425180 1.58875580453989 

Mach 2.0 

0.1%76900000000 

25.00000000000000 

0.00000000001355 

-0.00000000161314 

0.00000007776764 

-0.00000195028106 

0.00002773529688 

-0.00023868636964 

0.00115696378651 

0.00198487738110 

0.00905788%3067 

1.57536198056976 

The Mowing list contains Ae range of V values for Ae throat transition polyn<Mnials and 
Ae coefficients for Aese sevaiA order polynomials (Equation 18). The rows rqjresent Ae 
Mowing informatioD; row 1, starting x value, row 2, ending x value, rows 3 Arough 9, Ae 
coefficients for Ae polynomials arranged in decreasing order of x. 

Mach 1.4 Mach 1.41 Mach 1.42 

-0.03485000000000 -0.03465000000000 -0.03440000000000 
0.30487800000000 0.30698300000000 0.30917200000000 
3.79440994520268 3.56823400152118 3.32703763798460 
-1.46795727781507 -1.35973801033422 -1.23196836404500 
-0.71606249126068 -0.70897558737324 -0.70915413735749 
0.25274378162748 0.24813029464503 0.24403461583068 
0.04165733646450 0.04075827559078 0.03997160255191 
0.00751014912255 0.00745071433510 0.00739610623122 
0.00041924755858 0.00041547823184 0.00041125657902 
2.39397441331458 2.38228558625431 2.37044417031013 

Mach 1.43 Mach 1.44 Mach 1.45 

-0.03415000000000 -0.03390000000000 -0.03365000000000 
0.31140200000000 0.31366300000000 0.28841700000000 
3.11496001150867 2.72130721544026 3.69776201225538 
-1.13029748497588 -0.84301578204264 -0.60208509400623 
-0.70142974277375 -0.75010624182661 -1.19472906808352 
0.23948872089842 0.23668386228604 0.290%742681204 
0.03901246133980 0.03909865695956 0.05123430904578 
0.00733094444658 0.00733452542245 0.008018153935% 

0.00040678427261 0.00040406414451 0.00041739269536 
2.35837758658468 2.34616245253660 2.33382413199897 

Mach 1.46 Mach 1.47 Mach 1.48 

-0.03335000000000 -0.03310000000000 -0.03280000000000 
0.28974400000000 0.29206300000000 0.29446500000000 
3.34858689894953 2.95927524855381 2.75862420544780 
-0.37361238795502 -0.16010447584142 -0.10888988553452 
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-1.22776365279964 

0.28924060805970 

0.05098468049795 

0.00798839967271 

0.(X)041309132578 

2.32135575959659 

Mach 1.49 
-0.03250000000000 
0.29688800000000 
2.28757893704022 
0.20080119743413 
-1.25312598934528 
0.27678583453587 
0.04843350505455 
0.00779950121072 
0.00039851521772 
2.28317593888181 

Mach 1.52 
-0.03145000000000 
0.27664300000000 
1.32772244275014 
2.06740734930375 
-2.06442636272360 
0.33371890360207 
0.06280856264212 
0.00853698479216 
0.00040259942211 
2.24389600318023 

Mach 1.55 
-0.03035000000000 
0.28338000000000 
0.18248534531018 
2.68223%3489117 
-2.10987945228988 
0.32831747443752 
0.05995326074150 
0.00828350109548 
0.00038321372169 
2.20383350062508 

Mach 1.58 




0.26534000000000 

-2.43402889588291 

5.87586039711888 

-3.22179177624369 

0.39531942505549 

0.07542127119886 

0.00898068359495 


-1.23893598845069 

0.28462237877366 

0.05018412643342 

0.00793148647722 

0.00040877512651 

2.30877015525996 

Mach 1.5 

-0.03215000000000 

0.29939400000000 

2.12744271877720 

0.23200126175912 

-1.22337529219125 

0.27268892737587 

0.04695418574869 

0.00769202183661 

0.00039181164708 

2.27018084029812 

Mach 1.53 
-0.03110000000000 
0.27918200000000 
0.69145529875843 
2.46299910196168 
-2.11919126235970 
0.33151579331615 
0.06236337294409 
0.00848619122344 
0.00039711198294 
2.23061899235766 

Mach 1.56 
-0.02995000000000 
0.28603200000000 
0.03646676021508 
2.68626395451038 
-2.07411197812351 
0.32569661185817 
0.05823227181043 
0.00815280601075 
0.00037538176317 
2.19032892807979 

Mach 1.59 
-0.02865000000000 
0.26805700000000 
-2.86686410472777 
6.08760565494899 
-3.23724494785300 
0.39618368007874 
0.07407214694838 
0.00885450631015 


-1.20971531100032 

0.27985537332901 

0.04870969153017 

0.00782692476461 

0.00040268837068 

2.29598680126603 

Mach 1.51 
-0.03180000000000 
0.27412600000000 
1.79677590132942 
1.82927096039062 
-2.05213869219468 
0.33673696847198 
0.06386384069278 
0.00862588949119 
0.00040901250442 
2.25708534639065 

Mach 1.54 
-0.03075000000000 
0.28174400000000 
0.52652317543870 
2.46751714330287 
-2.07935042117815 
0.32821291426273 
0.06061684928972 
0.00835560570991 
0.00038979076872 
2.21726264516941 

Mach 1.57 
-0.02950000000000 
0.26268500000000 
-2.69436349916207 
6.25160625601419 
-3.35433323101306 
0.39821796264169 
0.07862876156263 
0.00920908867404 
0.00039250121449 
2.17667402536131 

Mach 1.6 

-0.02820000000000 

0.26982300000000 

-2.48501888843186 

5.67754727687714 

-3.11503891537114 

0.39553487946122 

0.07115650768842 

0.00864236765174 
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0.00038233699260 

2.16296211062438 

Mach 1.61 
-0.02770000000000 
0.27262700000000 
-2.79334185601022 
5.80827692380134 
-3.11688350389649 
0.39709344374335 
0.06960668897304 
0.00850464887326 
0.00035444342251 
2.12156624316047 

Mach 1.64 
-0.02620000000000 
0.25474600000000 
-8.03794677295924 
11.15551809851162 
-4.76978259081621 
0.49432525742080 
0.08785879021740 
0.00919414755046 
0.00034848731133 
2.07961902477300 

Mach 1.67 
-0.02460000000000 
0.26332700000000 
-5.80632242051302 
8.93948299385402 
-4.15228340803712 
0.49022556785905 
0.07526887445971 
0.00836%5806119 
0.00031242530590 
2.03747277127029 

Mach 1.7 


rrrrmTr 


0.24646200000000 

-12.3514%74613173 

15.35616062320531 

-6.10854299753303 

0.62453706236953 

0.09192541557412 

0.00881494653222 

0.00029757078079 

1.99491130572210 


0.00037385208538 

2.14926547441401 

Mach 1.62 
-0.02725000000000 
0.27539700000000 
-3.00227789526810 
5.86239680953501 
-3.09866887450936 
0.39716143299272 
0.06789724862398 
0.00836780939428 
0.00034601787089 
2.10764769711319 

Mach 1.65 
-0.02570000000000 
0.25756100000000 
-6.89131070262041 
10.09515104712624 
-4.48834801958721 
0.49130756830867 
0.08285061711572 
0.00887435704679 
0.00033581805980 
2.06559759632455 

Mach 1.68 
■0.02405000000000 
0.24154300000000 
-15.15686416575276 
17.71049006212431 
-6.65850571690492 
0.61746152288731 
0.10218416773992 
0.00947522460473 
0.00032481807133 
2.02329752844891 

Mach 1.71 
-0.02225000000000 
0.57120200000000 
-1.0326%25760690 
2.08914026043627 
-1.42424253454036 
0.29525929243329 
0.03296473637646 
0.00642184233498 
0.00025163700768 
1.98077332729275 


0.00036361684659 

2.13544560549913 

Mach 1.63 
-0.02675000000000 
0.25283500000000 
-8.33671978335983 
11.46812770545675 
-4.84815571042553 
0.48814249599407 
0.09062919736569 
0.00942189407570 
0.00036026932893 
2.09369262708121 

Mach 1.66 
■0.02515000000000 
0.26043800000000 
-6.44819383248542 
9.59653211139184 
4.33986542090733 
0.49159544520217 
0.07921530885189 
0.00862494472161 
0.00032407177001 
2.05154909912320 

Mach 1.69 
-0.02345000000000 
0.24353600000000 
-13.91242315191867 
16.70000360639828 
-6.43679868622093 
0.62464578587591 
0.09760880611917 
0.00916111164076 
0.00031130884995 
2.00910813899456 

Mach 1.72 
-0.02165000000000 
0.25233500000000 
-8.67281476082239 
12.17890300763105 
-5.31241858857280 
0.61410749648012 
0.07978735862669 
0.008138172%121 
0.00027130550201 
1.96656331578481 
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Mach 1.73 Mach 1.74 Mach 1.75 

-0.02100000000000 -0.02035000000000 41.01970000000000 
0.23044900000000 0.23340400000000 0.23636700000000 
-23.69477308502587 -20.32259621026120 -16.63267807696737 
25.38559582952659 22.77556013874253 19.88848222%1645 
-8.90708020572145 -8.32694102385256 -7.66985819282011 
0.80762379378055 0.80562193112298 0.79798244287061 
0.11115049552176 0.10318878463274 0.09494241203410 
0.00922769440670 0.00879925346585 0.00838376256371 
0.00027972625414 0.00026471565916 0.00025032194222 
1.95227163952977 1.93806084955796 1.92384812920442 

Mach 1.76 Mach 1.77 Mach 1.78 

-0.01905000000000 -0.01835000000000 -0.01765000000000 
0.73115200000000 0.24145000000000 0.22121500000000 
-0.29485341637918 -11.22956727742464 -29.44925959225816 
0.76634609210702 15.50032002102958 31.29013771558354 
-0.67773008290222 -6.63102860166389 -10.91932063428794 
0.19321529494126 0.78377708826185 1.04727637991373 
0.01645649015953 0.08098411881127 0.11066144405744 
0.00573455353118 0.00770126701003 0.00851818737712 
0.00020637111455 0.00022415605838 0.00022593089008 
1.90964798618532 1.89545519960127 1.88121169764047 

Mach 1.79 Mach 1.8 Mach 1.81 

-0.01695000000000 -0.01620000000000 -0.01550000000000 
0.22419500000000 0.22723000000000 0.23021900000000 
-22.36240279926369 -16.92906356331887 -11.125622%706782 
26.06115457136489 21.86538616300034 17.29042833327258 
-9.77673714%2000 -8.81317599840195 -7.72132852112588 
1.02451579429596 1.00171532700480 0.96441215171438 
0.09932049306662 0.08910715445470 0.07882093572901 
0.00803849952657 0.00761874366907 0.00723541957104 
0.00021111418919 0.0001%91028229 0.00018417549071 
1.86704707090553 1.85287379374797 1.83872138151665 

Mach 1.82 Mach 1.83 Mach 1.84 

-0.01475000000000 -0.01400000000000 -0.01320000000000 
0.23237400000000 0.21283800000000 0.21587900000000 
-8.64905760559781 -24.81136905451505 -17.64330327237555 
15.25885284473409 30.71208065876448 25.30747935316158 
-7.238670619%354 -11.80354401052184 -10.58483486572128 
0.95743091865080 1.30384859605613 1.26962488460342 
0.07239737975352 0.09703597366736 0.08582875221044 
0.00697368261137 0.00746347583565 0.00707953868209 
0.00017253823394 0.00016859885170 0.00015538406246 
1.82458%9633024 1.81045488035417 1.7%36785853818 

Mach 1.85 Mach 1.86 Mach 1.87 

-0.01245000000000 -0.01165000000000 -0.01085000000000 
0.21887200000000 0.22105600000000 0.22410000000000 
-7.55125213952866 -1.75072%7043862 4.69914483025170 
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17.64348175536304 13.12124767869101 7.81934421982999 
-8.78665795024184 -7.71429534659802 -6.37022362316132 
1.191821774%300 1.15118848867291 1.08306222995786 
0.07282624157453 0.06369815118198 0.05386822589558 
0.00669883671453 0.00642634589061 0.00616858707632 
0.00014322349971 0.00013180636303 0.00012081577971 
1.78232662085575 1.768295%880246 1.75430238673915 


Mach 1.88 Mach 1.89 Mach 1.9 

-0.01005000000000 -0.00920000000000 -0.00835000000000 
0.20524200000000 0.20828300000000 0.21048600000000 
-8.22770715507505 0.12533309902303 18.11627388143557 
23.24819689640894 16.70775826936938 3.55222791919128 
-11.53082438980671 -9.97434704887919 -6.91353478%2862 
1.55314251936088 1.48529586945287 1.31651262002925 
0.07372432790155 0.06252801319642 0.04799675603840 
0.00642409697357 0.00615517413648 0.00587424033081 
0.00011369406953 0.00010236830341 0.00009129511993 
1.74032777767046 1.72640254151559 1.71252980359230 

Mach 1.91 Mach 1.92 Mach 1.93 

-0.00755000000000 -0.00670000000000 -0.00580000000000 
0.21347500000000 0.21651200000000 0.19837700000000 
24.76393281277613 29.08623711885884 27.72896117016362 
-2.27077634411554 -6.53450662877932 4.64707990512762 
-5.34324318914758 -4.09382585316890 -9.24595283992646 
1.21615213644679 1.12906670841646 1.72445539420583 
0.03891788167940 0.03122201470038 0.04230140608731 
0.005705833419% 0.00557451061268 0.00563302325941 
0.00008168285335 0.00007189279928 0.00006247235118 
1.69868514321435 1.68490184544619 1.67112238658627 


Mach 1.95 Mach 1% 

-0.00405000000000 -0.00315000000000 
0.20357000000000 0.20659300000000 
56.76848041464736 63.16364630849947 
-18.03597524249974-24.42474257892694 
-3.58597815450975 -1.68400904959568 
1.34618897900176 1.19240218932198 
0.02153862099279 0.01434254405664 
0.00539005886716 0.00532721540278 
0.000042%202937 0.00003328437677 
1.64376909214756 1.63017999130190 


Mach 1.94 
-0.00495000000000 
0.20054500000000 
51.75715183544227 
-12.70049286104780 
-5.18531871497983 
1.46522290843937 
0.02941671720811 
0.00547841486794 
0.00005280014383 
1.65742121307232 

Mach 1.97 
-0.00225000000000 
0.20% 1500000000 
72.6636812418950 
-33.1435129101020 
0.84109688114000 
0.97629481378700 
0.00790312377400 


Mach 1.98 
-0.00135000000000 
0.19130600000000 
100.68415%39541 
-35.1465143191700 
-2.89579661068300 
1.63891053752500 
0.00806781828600 


Mach 1.99 
-0.00045000000000 
0.19426500000000 
112.183780303250 
-045.903417821063 
0.17200711643400 
1.38076668627900 
0.00165161456800 
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0.00528695766100 0.00527784158500 0.00526371012800 
0.00002371564400 0.00001422223800 0.00000473683900 
1.61662914089900 1.60311667331100 1.58966781607400 

Mach 2.0 
0 

0.19676900000000 

124.934972990805 

-57.3904439893380 

3.47405251744300 

1.07515569392200 

-0.00083333333300 

0.00526315789500 

0 

1.57629985185200 

The following list cOTtains the range of V values fisr the subsonic shapes and the 
coefficiaits described in equaticms 26 and 27. The rows represent the following informaticm; row 
1, starting x value, row 2, ending x value, rows 3 the coefiBciait aj, and row 4, the coeflRcient a 2 - 

Mach 1.4 Mach 1.41 Mach 1.42 

-19.98179413977541 -19.98179395739902 -19.98179372942853 
-0.03485000000000 -0.03465000000000 -0.03440000000000 
0.39446440268570 0.39271089471799 0.39095225010117 
0.59674737554859 0.59410336655332 0.59145367537456 

Mach 1.43 Mach 1.44 Mach 1.45 

-19.98179350145804 -19.98179327348754 -19.98179304551705 
-0.03415000000000 -0.03390000000000 -0.03365000000000 
0.38917619816803 0.38739460967027 0.38561150909261 
0.58877755152711 0.58609295293606 0.583405%793348 

Mach 1.46 Mach 1.47 Mach 1.48 

-19.98179277195246 -19.98179254398197 -19.98179227041738 
-0.03335000000000 -0.03310000000000 -0.03280000000000 
0.38382814615554 0.38204275014569 0.38024807345137 
0.58072061422451 0.57802994872182 0.57532724957156 

Mach 1.49 Mach 1.5 Mach 1.51 

-19.9817919%85279 -19.98179167769411 -19.98179135853542 
-0.03250000000000 -0.03215000000000 -0.03180000000000 
0.37846645113368 0.37667801944528 0.37489278488193 
0.57264418319022 0.569952782510% 0.56726608078394 

Mach 1.52 Mach 1.53 Mach 1.54 

-19.98179103937673 -19.98179072021804 -19.98179040105935 
-0.03145000000000 -0.03110000000000 -0.03075000000000 
0.37311183727375 0.37133609731082 0.36956676779441 
0.56458572749142 0.56191311633866 0.55925006808103 
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Mach 1.55 Mach 1.56 Mach 1.57 

-19.98179003630657 -19.98178967155378 -19.98178926120690 
-0.03035000000000 -0.02995000000000 -0.02950000000000 
0.36780660822097 0.36605344869396 0.36429946374814 
0.55660279766478 0.553965%468179 0.55132974589633 

Mach 1.58 Mach 1.59 Mach 1.6 

-19.9817888%45411 -19.98178848610722 -19.98178807576034 
-0.02910000000000 -0.02865000000000 -0.02820000000000 
0.36255328785826 0.36082765006084 0.35910306718512 
0.54870316159338 0.54610950615%5 0.54351727526094 

Mach 1.61 Mach 1.62 Mach 1.63 

-19.98178761981936 -19.98178720947247 -19.98178675353149 
-0.02770000000000 -0.02725000000000 -0.02675000000000 
0.35738944738869 0.35568567208321 0.35399552131607 
0.54094344648691 0.53838235782865 0.53584368435772 

Mach 1.64 Mach 1.65 Mach 1.66 

-19.98178625199641 -19.98178579605543 -19.98178529452034 
-0.02620000000000 -0.02570000000000 -0.02515000000000 
0.35230901165053 0.35064315694926 0.34899168973826 
0.53331228768497 0.53081001022739 0.52833126297586 

Mach 1.67 Mach 1.68 Mach 1.69 

-19.98178479298526 -19.98178429145018 -19.98178374432100 
-0.02460000000000 -0.02405000000000 -0.02345000000000 
0.34735262190693 0.34571754995146 0.34409809206949 
0.52587108630188 0.52341675955877 0.52098778102668 

Mach 1.7 Mach 1.71 Mach 1.72 

-19.98178319719183 -19.98178265006265 -19.98178210293347 
-0.02285000000000 -0.02225000000000 -0.02165000000000 
0.34249307915191 0.34090982600566 0.33933323032402 
0.51858045872025 0.51620587160642 0.51384115509972 

Mach 1.73 Mach 1.74 Mach 1.75 

-19.98178151021019 -19.98178091748691 -19.98178032476363 
-0.02100000000000 -0.02035000000000 -0.01970000000000 
0.33776398547959 0.33621828521080 0.33468665551867 
0.51148923230118 0.50917273956986 0.50687733378153 

MjKih 1.76 Mach 1.77 Mach 1.78 

-19.98177973204036 -19.98177909372298 -19.98177845540560 
-0.01905000000000 -0.01835000000000 -0.01765000000000 
0.33317048526161 0.33167059865851 0.33017900311314 
0.50460512148013 0.50235919239911 0.50012558913756 

Mach 1.79 Mach 1.8 Mach 1.81 

-19.98177781708823 -19.98177713317675 -19.98177649485938 
-0.01695000000000 -0.01620000000000 -0.01550000000000 
0.32870925344589 0.32725347226518 0.32581126341259 
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0.49792484630503 0.49574684932609 0.49358736624280 


Mach 1.82 Mach 1.83 Mach 1.84 

-19.98177581094790 -19.98177512703643 -19.98177439753086 
-0.01475000000000 -0.01400000000000 -0.01320000000000 
0.32438565056018 0.32297235063256 0.32157793231092 
0.49145460039128 0.48934025302865 0.48725606215657 

Mach 1.85 Mach 1.86 Mach 1.87 

-19.98177371361938 -19.98177298411381 -19.98177225460824 
-0.01245000000000 -0.01165000000000 -0.01085000000000 
0.32019867664276 0.31883404595827 0.31748483937802 
0.48519282542590 0.48315328852628 0.48113688430876 

Mach 1.88 Mach 1.89 Mach 1.9 

-19.98177152510267 -19.98177075000300 -19.98176997490332 
-0.01005000000000 -0.00920000000000 -0.00835000000000 
0.31614905620621 0.31483100223377 0.31352912115270 
0.47914058471610 0.47717266404261 0.47522900894367 

Mach 1.91 Mach 1.92 Mach 1.93 

-19.98176924539775 -19.98176847029808 -19.98176764960431 
-0.00755000000000 -0.00670000000000 -0.00580000000000 
0.31223927496370 0.310%751378538 0.30970819074754 
0.47330162113832 0.47140314328154 0.46952499855181 

Mach 1.94 Mach 1.95 Mach 1.96 

-19.98176687450464 -19.98176605381087 -19.98176523311710 
-0.00495000000000 -0.00405000000000 -0.00315000000000 
0.30846493221763 0.30723785159150 0.30602643669911 
0.46766924895664 0.46583949685648 0.46403325418061 

Mach 1.97 Mach 1.98 Mach 1.99 

-19.98176441242334 -19.98176359172957 -19.98176277103580 
-0.00225000000000 -0.00135000000000 -0.00045000000000 
0.30482819944503 0.30364295349599 0.30247274191576 
0.46224675262606 0.46047971355867 0.45873523941090 

Mach 2.0 

-19.98176236068891 

0 

0.30130528455490 

0.45697968157493 
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APPENDIX D. STRUCTURAL ANALYSIS 


The structural analysis was carried out using I-DEAS Master Series™. Alioth, the ei^t 
processor Silicon Graphics 4D/380 computer located in the NPS Visualization Laboratory was the 
platform used for the structural analysis. Ahodi was the server for I-DEAS and if the user 
established a home account on diis machine, processing time was minimized. 

The three structural questions addressed were; (1) the jack distribution and loading 
necessary to achieve the necessary curvatures in the steel plate, (2) the interactioi betweai the jack 
mounting fixture and the plate and (3) the effect of the aerodynamic pressure loading on the plate. 

Figure 29 shows the finite element model of die idealized Mach 1.4 shape. Nine fixtures 
were attached to the model corresponding to the jack mounting points and one inch elem^t l^gths 
were used. Figure 30 shows a loading combination which produced a close approximation of the 
Mach 2 curvatures. The loads were oriented perpeudicular to the long dimension of the plate (y 
direction) widi the positive sense defined upward. A load of -225 pounds was tqiplied at the -3.5 
inch jack station (measured with respect to the throat, positive in the downstream direction). A 275 
pound load and a -140 pound load were ^iplied at the 0 indi or diroat station and the 3 inch station 
respectively. Figure 31 shows the stress distributioa in the deflected steel slu^. 

Figure 32 presents the model used to analyze the jack mounting fixture and the pressure 
loading effects. A six inch secticm of flat plate, representative of the loigth between three jacks, 
was used. A single jack-mounting fixture was modeled. An element loigth of. 1 inches was 
reqpiired to avoid ^cessive distortion of the finite-element mesh throug)iout die jack-mount fixture 
and eyelet. To avoid laige memory and processor demands, the mcxlel was simplified by modeling 
a . 1 inch two dimensional slice dirou^ the plate. This sinqilificaticxi kept processor time to less 
than five minutes and Hypermatrix size to less than 50 megabytes. Figure 33 shows the stress 
effects of applying a 250 pound load to the tc^ of the inside of the eyelet at an ofiP-perpoidicnilar 
angle of 4.5 d^ees. Figure 34 shows the deflecticm of this same load. Figure 35 shows the 
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displacement of the isolated horizontal component of the 250 pound load. Figure 36 highlights the 
stress at the fixture joint. 

Figure 37 rqjresents an approximation of the pressure loading associated with Mach 2 
operation on the plate section surrounding the throat jack. In this figure, the stress distribution is 
presorted. F inall y Figure 38 shows the displacemart of the plate as a result of the Mach 2 
pressure loading in the vicinity of the throat. 
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Figure 35. Jack Mount Deflection, Horizontal Component of Off Perpendicular Load 
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Figure 38. Plate Deflection, Mach 2 Pressure Load (Throat) 
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APPENDIX E. COORDINATES OF MACH 1.7 SHAPE AND PRELIMINARY 

DRAWINGS 

Table 6 lists the coordinates describing the surfece of the Mach 1.7 shape exposed to the 
air flow. The origin of die reference system is the most down-stream point in the solution which is 
at the nozzle exit. The positive sense for 'x' is in the down stream or test section direction, 
therefore all of the x values are negative. The positive sense for y is perpendicular to and directed 
away fixnn the nozzle centerline. 
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X 

Y 

X 

Y 

X 

Y 

X 

Y 

- 44.9818 

2.2003 

- 36.4166 

1.4668 

- 31.7819 

- 0.1976 

* 26.8877 

- 0.7805 

- 44.9749 

2.2003 

- 36.0772 

1.3355 

- 31.689 

- 0.2201 

- 26.7605 

- 0.7841 

- 44.9659 

2.2003 

- 35.7409 

1.2008 

- 31.5955 

- 0.2421 

- 26.6324 

- 0.7873 

- 44.9543 

2.2003 

- 35.4082 

1.0649 

- 31.5014 

- 0.2638 

- 26.5034 

- 0.7903 

- 44.9395 

2.2003 

- 35.0796 

0.93 

- 31.4065 

- 0.2851 

- 26.3734 

- 0.793 

- 44.9211 

2.2003 

- 35.01 

0.9015 

- 31.311 

- 0.3059 

- 26.2426 

- 0.7953 

- 44.8983 

2.2003 

- 34.9398 

0.8728 

- 31.2149 

- 0.3264 

- 26.1108 

- 0.7974 

- 44.8704 

2.2003 

- 34.8691 

0.844 

- 31.1181 

- 0.3464 

- 25.9781 

- 0.7992 

- 44.8367 

2.2003 

- 34.7979 

0.8151 

- 31.0205 

- 0.3659 

- 25.8445 

- 0.8008 

- 44.7963 

2.2003 

- 34.7263 

0.7861 

- 30.9223 

- 0.3851 

- 25.71 

- 0.802 

- 44.7486 

2.2003 

- 34.6541 

0.757 

- 30.8235 

- 0.4038 

- 25.5745 

- 0.8031 

44.6927 

2.2003 

- 34.5814 

0.7278 

- 30.7239 

- 0.422 

- 25.438 

- 0.8038 

- 44.6278 

2.2003 

- 34.5083 

0.6986 

- 30.6236 

- 0.4398 

- 25.3006 

- 0.8044 

- 44.5531 

2.2003 

- 34.4346 

0.6693 

- 30.5226 

- 0.4571 

- 25.1622 

- 0.8047 

- 44.468 

2.2003 

- 34.3603 

0.64 

- 30.4209 

- 0.474 

- 25.0229 

- 0.8048 

44.3716 

2.2003 

- 34.2856 

0.6108 

- 30.3185 

- 0.4905 

- 25.0229 

- 0.8048 

- 44.2635 

2.2003 

- 34.2103 

0.5815 

- 30.2154 

- 0.5065 

- 25.0174 

- 0.8048 

44.143 

2.2003 

- 34.1345 

0.5522 

- 30.1115 

- 0.522 

- 25.0119 

- 0.8048 

- 44.0097 

2.2003 

- 34.0582 

0.523 

- 30.0069 

- 0.5371 

- 25.0064 

- 0.8048 

43.8633 

2.2003 

- 33.9814 

0.4939 

- 29.9016 

■ 0.5517 

- 25.0009 

- 0.8048 

- 43.7034 

2.2003 

- 33.904 

0.4648 

- 29.7955 

- 0.5658 

- 24.9954 

- 0.8048 

43.53 

2.2003 

- 33.826 

0.4358 

- 29.6887 

- 0.5796 

- 24.9899 

- 0.8048 

43.3429 

2.2003 

- 33.7475 

0.4069 

- 29.5812 

- 0.5928 

- 24.9844 

- 0.8048 

43.1423 

2.2003 

- 33.6685 

0.3782 

- 29.4729 

- 0.6056 

- 24.9789 

- 0.8048 

42.9283 

2.2003 

- 33.5889 

0.3495 

- 29.3638 

4)618 

- 24.9734 

- 0.8048 

42.7012 

2.2003 

- 33.5087 

0.321 

- 29.254 

- 0.6299 

- 24.9679 

- 0.8048 

42.4613 

2.2003 

- 33.428 

0.2927 

- 29.1433 

- 0.6413 

- 24.9624 

- 0.8048 

42.2091 

2.2003 

- 33.3467 

0.2645 

- 29.032 

- 0.6523 

- 24.9569 

- 0.8048 

41.9452 

2.2003 

- 33.2648 

0.2366 

- 28.9198 

- 0.6629 

- 24.9514 

- 0.8047 

41.6702 

2.2002 

- 33.1824 

0.2088 

- 28.8068 

- 0.6731 

- 24.9459 

- 0.8047 

41.3848 

2.2001 

- 33.0994 

0.1813 

- 28.6931 

- 0.6828 

- 24.9404 

- 0.8047 

41.0897 

2.1996 

- 33.0158 

0.1539 

- 28.5785 

- 0.6921 

- 24.9349 

- 0.8047 

40.7857 

2.1984 

- 32.9316 

0.1269 

- 28.4632 

- 0.7009 

- 24.9294 

- 0.8047 

40.4736 

2.1957 

- 32.8468 

0.1001 

- 28.347 

- 0.7094 

- 24.9239 

- 0.8047 

40.1544 

2.1902 

- 32.7615 

0.0735 

- 28.23 

- 0.7174 

- 24.9184 

- 0.8047 

- 39.8288 

2.1802 

- 32.6755 

0.0472 

- 28.1122 

- 0.7251 

- 24.9129 

- 0.8046 

- 39.4978 

2.1635 

- 32.5889 

0.0213 

- 27.9936 

- 0.7323 

- 24.9074 

- 0.8046 

- 39.1623 

2.1378 

- 32.5017 

- 0.0044 

- 27.8741 

- 0.7391 

- 24.9019 

- 0.8046 

- 38.8232 

2.1008 

- 32.4139 

- 0.0298 

- 27.7538 

- 0.7456 

- 24.8964 

- 0.8046 

- 38.4812 

2.0507 

- 32.3255 

- 0.0548 

- 27.6327 

- 0.7516 

- 24.8909 

- 0.8045 

- 38.1373 

1.9863 

- 32.2365 

- 0.0795 

- 27.5107 

- 0.7573 

- 24.8854 

- 0.8045 

- 37.7923 

1.9074 

- 32.1468 

- 0.1038 

- 27.3878 

- 0.7627 

- 24.8799 

- 0.8045 

- 37.447 

1.8144 

- 32.0566 

- 0.1278 

- 27.2641 

- 0.7676 

- 24.8745 

- 0.8044 

- 37.1021 

1.7086 

- 31.%56 

- 0.1515 

- 27.1395 

- 0.7722 

- 24.869 

- 0.8044 

- 36.7584 

1.592 

- 31.8741 

- 0.1747 

- 27.0141 

- 0.7765 

- 24.8635 

- 0.8043 


Table 6. Coordinates of Mach 1.7 Nozzle Contour 


150 




X 

Y 

X 

Y 

X 

Y 

- 24.858 

- 0.8043 

- 22.2682 

- 0.7543 

- 17.7947 

- 0.5766 

- 24.8525 

4).8043 

- 22.1688 

- 0.7515 

- 17.6953 

- 0.5718 

- 24.847 

- 0.8042 

- 22.0694 

- 0.7486 

- 17.5959 

- 0.567 

- 24.8415 

- 0.8042 

- 21.97 

- 0.7456 

- 17.4965 

- 0.5621 

- 24.836 

- 0.8041 

- 21.8706 

- 0.7426 

- 17.3971 

- 0.5573 

- 24.8305 

- 0.8041 

- 21.7712 

- 0.7395 

- 17.2977 

- 0.5524 

- 24.825 

- 0.804 

- 21.6718 

- 0.7364 

- 17.1982 

- 0.5475 

- 24.8195 

- 0.804 

- 21.5724 

- 0.7332 

- 17.0988 

- 0.5425 

- 24.814 

- 0,8039 

- 21.4729 

- 0.7299 

- 16.9994 

- 0.5376 

- 24.8085 

- 0.8039 

- 21.3735 

- 0.7266 

- 16.9 

- 0.5326 

- 24.803 

- 0.8038 

- 21.2741 

- 0.7232 

- 16.8006 

- 0.5276 

- 24.7975 

- 0.8038 

- 21.1747 

- 0.7198 

- 16.7012 

- 0.5226 

- 24.792 

- 0.8037 

- 21.0753 

- 0.7163 

- 16.6018 

- 0.5176 

- 24.7865 

- 0.8036 

- 20.9759 

- 0.7128 

- 16.5024 

- 0.5126 

- 24.781 

- 0.8036 

- 20.8765 

- 0.7092 

- 16.4029 

- 0.5075 

- 24.7755 

- 0.8035 

- 20.7771 

- 0.7055 

- 16.3035 

- 0.5024 

- 24.77 

- 0.8035 

- 20.6777 

- 0.7018 

- 16.2041 

- 0.4974 

- 24.7645 

- 0.8034 

- 20.5782 

- 0.6981 

- 16.1047 

- 0.4923 

- 24.759 

- 0.8034 

- 20.4788 

- 0.6943 

- 16.0053 

- 0.4872 

- 24.7535 

- 0.8033 

- 20.3794 

- 0.6905 

- 15.9059 

- 0.4821 

- 24.7535 

- 0.8033 

- 20.28 

- 0.6866 

- 15.8065 

- 0.477 

- 24.6541 

- 0.8022 

- 20.1806 

- 0.6827 

- 15.7071 

- 0.4719 

- 24.5547 

- 0.8011 

- 20.0812 

- 0.6787 

- 15.6077 

- 0.4668 

- 24.4553 

- 0.7998 

- 19.9818 

- 0.6747 

- 15.5082 

- 0.4616 

- 24.3559 

- 0.7985 

- 19.8824 

- 0.6706 

- 15.4088 

- 0.4565 

- 24.2565 

- 0.7971 

- 19.7829 

- 0.6665 

- 15.3094 

- 0.4513 

- 24.1571 

- 0.7957 

- 19.6835 

- 0.6623 

- 15.21 

- 0.4462 

- 24.0577 

- 0.7941 

- 19.5841 

■ 0.6581 

- 15.1106 

- 0.4411 

- 23.9582 

- 0.7925 

- 19.4847 

■ 0.6539 

- 15.0112 

- 0.4359 

- 23.8588 

- 0.7908 

- 19.3853 

- 0 . 64 % 

- 14.9118 

- 0.4308 

- 23.7594 

- 0.7891 

- 19.2859 

- 0.6453 

- 14.8124 

- 0.4256 

- 23.66 

- 0.7872 

- 19.1865 

- 0.641 

- 14.7129 

- 0.4205 

- 23.5606 

- 0.7853 

- 19.0871 

- 0.6366 

- 14.6135 

- 0.4153 

- 23.4612 

- 0.7834 

- 18.9877 

- 0.6322 

- 14.5141 

- 0.4102 

- 23.3618 

- 0.7813 

- 18.8882 

- 0.6277 

- 14.4147 

- 0.405 

- 23.2624 

- 0.7792 

- 18.7888 

- 0.6232 

- 14.3153 

- 0.3999 

- 23.1629 

- 0.777 

- 18.6894 

- 0.6187 

- 14.2159 

- 0.3948 

- 23.0635 

- 0.7748 

- 18.59 

- 0.6141 

- 14.1165 

- 0.3897 

- 22.9641 

- 0.7724 

- 18.4906 

- 0.6096 

- 14.0171 

- 0.3845 

- 22.8647 

- 0.77 

- 18.3912 

- 0.6049 

- 13.9177 

- 0.3794 

- 22.7653 

- 0.7676 

- 18.2918 

- 0.6003 

- 13.8182 

■ 0.3743 

- 22.6659 

- 0.7651 

- 18.1924 

- 0.5956 

- 13.7188 

- 0.3692 

- 22.5665 

- 0,7625 

- 18.0929 

- 0.5909 

- 13.6194 

- 0.3641 

- 22.4671 

- 0.7598 

- 17.9935 

- 0.5862 

- 13.52 

- 0.3591 

- 22.3677 

- 0.7571 

- 17.8941 

- 0.5814 

- 13.4206 

- 0.354 


Table 6. (cont) Coordinates of Mach 1.7 Nozzle Contour 
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X 

Y 

X 

Y 

X 

Y 

- 13.3212 

- 0.349 

- 8.8477 

- 0.1478 

4.3741 

■ 0.036 

- 13.2218 

- 0.3439 

- 8.7482 

- 0.1442 

4.2747 

- 0.0346 

- 13.1224 

- 0.3389 

- 8.6488 

- 0.1406 

4.1753 

- 0.0333 

- 13.0229 

- 0.3339 

- 8.5494 

- 0.1371 

4.0759 

- 0.032 

- 12.9235 

- 0.3289 

- 8.45 

- 0.1336 

- 3.9765 

- 0.0307 

- 12.8241 

- 0.3239 

- 8.3506 

- 0.1302 

- 3.8771 

- 0.0295 

- 12.7247 

- 0.319 

- 8.2512 

- 0.1269 

- 3.7776 

- 0.0283 

- 12.6253 

- 0.314 

- 8.1518 

- 0.1236 

- 3.6782 

- 0,0271 

- 12.5259 

- 0.3091 

- 8.0524 

- 0.1203 

- 3.5788 

- 0.026 

- 12.4265 

- 0.3042 

- 7.9529 

- 0.1171 

- 3.4794 

- 0.0249 

- 12.3271 

- 0.2993 

- 7.8535 

- 0.1139 

- 3,38 

- 0.0238 

- 12.2277 

- 0.2944 

- 7.7541 

- 0.1108 

- 3.2806 

- 0.0228 

- 12.1282 

- 0.2896 

- 7.6547 

- 0.1078 

- 3.1812 

- 0.0218 

- 12.0288 

- 0.2848 

- 7.5553 

- 0.1048 

- 3.0818 

- 0.0208 

- 11.9294 

- 0.28 

- 7.4559 

- 0.1018 

- 2.9824 

- 0.0199 

- 11.83 

- 0.2752 

- 7.3565 

- 0.0989 

- 2.8829 

- 0.019 

- 11.7306 

- 0.2705 

- 7.2571 

- 0.0961 

- 2.7835 

- 0.0181 

- 11.6312 

- 0.2658 

- 7.1576 

- 0.0933 

- 2.6841 

- 0.0172 

- 11.5318 

- 0.2611 

- 7.0582 

- 0.0906 

- 2.5847 

- 0.0163 

- 11.4324 

- 0.2564 

- 6.9588 

- 0.0879 

- 2.4853 

- 0.0155 

- 11.3329 

- 0.2518 

- 6.8594 

- 0.0852 

- 2.3859 

- 0.0147 

- 11.2335 

- 0.2472 

- 6.76 

- 0.0827 

- 2.2865 

- 0.0139 

- 11.1341 

- 0.2426 

- 6.6606 

- 0.0801 

- 2.1871 

- 0.0131 

- 11.0347 

- 0.2381 

- 6.5612 

- 0.0777 

- 2.0876 

- 0.0123 

- 10.9353 

- 0.2336 

- 6.4618 

- 0.0752 

- 1.9882 

- 0.0116 

- 10.8359 

- 0.2291 

- 6.3624 

- 0.0729 

- 1.8888 

- 0.0108 

- 10.7365 

- 0.2247 

- 6.2629 

- 0.0706 

- 1.7894 

- 0.0101 

- 10.6371 

- 0.2203 

- 6.1635 

- 0.0683 

- 1.69 

- 0.0094 

- 10.5377 

- 0.2159 

- 6.0641 

- 0.0661 

- 1.5906 

- 0.0087 

- 10.4382 

- 0.2116 

- 5.9647 

- 0.0639 

- 1.4912 

- 0.0081 

- 10.3388 

- 0.2073 

- 5.8653 

- 0.0618 

- 1.3918 

- 0.0074 

- 10.2394 

- 0.203 

- 5.7659 

- 0.0598 

- 1.2924 

- 0,0068 

- 10.14 

- 0.1988 

- 5.6665 

- 0.0578 

- 1.1929 

- 0.0061 

- 10.0406 

- 0.1946 

- 5.5671 

- 0.0558 

- 1.0935 

- 0.0055 

- 9.9412 

■ 0.1905 

- 5.4676 

- 0.0539 

- 0.9941 

- 0.0049 

- 9.8418 

- 0.1864 

- 5.3682 

- 0.052 

- 0.8947 

- 0,0043 

- 9.7424 

- 0.1823 

- 5.2688 

- 0.0502 

- 0.7953 

- 0.0038 

- 9.6429 

- 0.1783 

- 5.1694 

- 0.0485 

- 0.6959 

- 0.0032 

- 9.5435 

- 0.1743 

- 5.07 

- 0.0468 

- 0.5965 

- 0.0027 

- 9.4441 

- 0.1704 

- 4.9706 

- 0.0451 

- 0.4971 

- 0.0022 

- 9.3447 

- 0.1665 

- 4.8712 

- 0.0435 

- 0.3976 

- 0.0017 

- 9.2453 

- 0.1627 

^.7718 

- 0.0419 

- 0.2982 

- 0.0012 

- 9.1459 

- 0.1589 

- 4.6724 

- 0.0403 

- 0.1988 

- 0.0008 

- 9.0465 

- 0.1551 

- 4.5729 

- 0.0388 

■ 0.0994 

- 0.0004 

- 8.9471 

- 0.1514 

- 4.4735 

- 0.0374 

0 

0 


Table 6. (cont) Coordinates of Mach 1.7 Nozzle Contour 
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